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ABSTRACT 

SIN and SOLDIER are heuristic programs written in LISP which solve 
symbolic integration problems. SIN (Symbolic INtegrator) solves inde- 
finite integration problems at the difficulty approaching those in the 
larger integral tables. SIN contains several more methods than are used 
in the previous symbolic integration program SAINT, and solves most of 
the problems attempted by SAINT in less than one second. SOLDIER (SOLu- 
tion of Ordinary Differential Equations Routine) solves first order, 
first degree ordinary differential equations at the level of a good col- 
lege sophomore and at an average of about five seconds per problem attempted. 
The differences in philosophy and operation between SAINT and SIN are 


described, and suggestions for extending the work presented are made. 
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To the descendants of the Maharal 


who are endeavoring to build a Golem. 


Chapter 1 


Introduction 


In the last few years there has been a surge of activity on 
the design of algebraic manipulation systems*, Algebraic manipu- 
lation systems are computer based systems which facilitate the 
handling of algebraic and analytic expressions. One of the oft 
stated capabilities desired of such systems is an ability to per- 
form symbolic integration. Besides the obvious value of such a 
capability in symbolic calculations there is the possibility of em- 
ploying it as an adjunct to numerical integration programs for 
functions which involve parameters. In such cases a single accur- 
ate symbolic integration is likely to be preferable to numerical 
integrations taken over the range of values of the parameters. An- 
other reason for the interest in symbolic integration programs is 
the fact that the ease with which such a program could be written 
in a proposed language for algebraic manipulation has become an in- 
formal test of the power of that language. Yet the only previously 
announced symbolic integration program with any claim to generality 
is SAINT (Symbolic Automatic INZegrator), written as a doctoral 
dissertation by Slagle in 1961 [58]. Slagle described SAINT as be- 
ing as powerful as a good freshman calculus student. Thus the un- 


modified SAINT program does not appear powerful enough to warrant 


*For a survey of the field of algebraic manipulation see Sammet [55] - 
For a bibliography of work in the field up to 1966 see Sammet [6]. 
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its use in a practical algebraic manipulation system. In 1964 a 
program which integrates rational functions was written for the 
MATHLAB project by Manove, Bloom, and Engelman of the MITRE Corpor- 
ation [36]. This program filled an important gap in the capabili- 
ties of SAINT. By using such a program it appeared possible to 
write a more powerful integration program than SAINT. Furthermore 
it seemed that programs which solve ordinary differential equations 
at least as well‘as sophomore college students (and a good deal 
faster than such students) could also be written, Such programs 
became the goals of our research. 

We used the rational function package of MATHLAB in writing a 
second symbolic integration program called SIN (Symbolic INtegrator). 
SIN, in turn, we used to write a program which solves first. order, 
first degree ordinary differential equations. This program is: . 
called SOLDIER (SOLution of Differential Equations Routine). SIN 
and SOLDIER are both written in LISP [34], [20] for the CTSS system 
at Project MAC [11]. These experiments in symbolic integration are 
the principal subjects of this thesis. We believe these programs to 
possess sufficient power and efficiency that they could be effectively 
used in a practical on-line algebraic manipulation system. 

In order to clarify the domain of applicability of our pro- 
grams and in order to indicate the power of the present versions 
of SIN and SOLDIER, we present below two examples of problems 
solved by each program. The solutions that these programs obtain 


to the four pr@blems can be found in Chapters 4 and 6. 
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Although the capabilities of SAINT are quite impressive, 
we found compelling reasons for taking, in SIN, a substantially 
different approach. The most fundamental difference between SIN 
and SAINT is in the organization of the programs. SAINT utilizes 
a tree search as its main organizational device. Slagle compares 
the behavior of SAINT to that of freshman calculus students. We 
sought an organizational model which behaved like our conception 
of the behavior of an expert human integrator. This model was sup- 
posed to determine the methods needed to solve a problem quite 
quickly. A discussion of the approach taken in SIN is given in 
Chapter 2. 

SAINT utilizes a matching program for algebraic expressions 
called Elinst (ELementary INSTance). We desired a program which 
was more closely organized as an interpreter for a pattern matching 
language. This program. called SCHATCHEN, is a service routine em- 
ployed throughout SIN and SOLDIER. The power of SCHATCHEN greatly 
simplified the problem of writing an algebraic simplification pro- 
gram, called SCHVUOS. SCHATCHEN and SCHVUOS are described in Chap- 


ter 3. 


Chapter 4 contains a detailed description of SIN and its 


methods. A comparison between methods used in SAINT and SIN is 
made. It is noted that SIN contains several methods not included 
in SAINT. Among these ig a decision procedure for a set of inte- 
gration problems. Thus SIN is able to determine that ee and 
je dx are not integrable in closed form. 

In Chapter 5 we introduce the Edge (EDucational GuEss) heur- 
istic. The Edge heuristic is based on the Liouville theory of in- 
tegration. In this theory it is shown that if a function is inte- 
grable in closed form, then the form of the integral can be deduced 
up to certain coefficients. A program which employs the Edge heur- 
istic, called Edge, uses a simple analysis to guess at the form of 
the integral and then it attempts to obtain the coefficients. Edge 
is a nontraditional integration method and one that we believe is 
the first in a line of very powerful methods. 

The methods and organization of SOLDIER are introduced in 
Chapter 6. The area of nonlinear first order differential equations 
is much more difficult than just integration. Thus we were hardly 
surprised at not being able to find a concept analogous to the Edge 
heuristic of SIN. Nonetheless the power of the current version 
of SOLDIER is comparable to that of a sophomore student in an or- 
dinary differential equations course. 

The appendices contain results of experiments performed with 
SIN and SOLDIER and a report on some other work not directly con- 


cerned with these programs. 


Many people probably believe that the cheapest way to obtain 
an integration capability would be to design an integral table 
look-up program. While we do not espouse this course of action, 
we did experiment with such a program (called ITALU). Appendix A 
describes this program. 

Richardson has recently obtained a recursive unsolvability re- 
sult in integration wich has aroused great interest [2]. We des- 
cribe this theorem and present some of our own related results 
which involve nonlinear differential equations in Appendix B. 

SAINT was asked to solve 86 problems. Of these it solved 84 
in an average time of 2.4 minutes. SIN solved all 86 problems 
with solution times which were frequently more than two orders of 
magnitude faster than SAINT. SIN solved the other two problems 
by using integration methods not available in SAINT. The fact that 
SIN was compiled and that SAINT was run interpretively accounted 
for most of the gain in speed. Results and further interpretations 
of this experiment are given in Appendix C. 

A physicist, Harold McIntosh, used an integral table to solve 
eleven fairly difficult integration problems. SIN, after some 
prodding, solved these problems and found some minor errors in 
Professor McIntosh's answers. This experiment is described in Ap- 
pendix D. 

In order to test the effectiveness of SOLDIER we asked it to 
solve 76 problems taken out of a differential equations text. SOL- 


DIER solved 67 of these problems cleanly with an average time of 
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about five seconds, One of these solutions indicated a misprint 
in the solution given in the text. This experiment is described 
in Appendix E. 

With the exception of Chapter 7 which presents conclusions 
and suggestions for further work the following chapters are fairly 
self contained. Thus those who are only interested in algebraic 
manipulation can reasonably ignore Chapter 2. Those interested in 


AI may wish to ignore the higher numbered chapters. 


CHAPTER 2 


HOW SIN DIFFERS FROM SAINT 


Introduction 

In this chapter we discuss in broad terms the organizational dif- 
ferences between SIN and SAINT. SAINT employs rather loose progress 
constraints in generating subproblems, and obtains a solution through 
a tree search. SIN relies on a much tighter analysis of the problem 
domain (i.e., integration) and strict constraints on progress in order 
to obtain a relatively straightforward solution. 

Heuristic Search 

In "The Search for Generality" [45 ], Newell finds that the most 
frequent organizational structure used in Artificial Intelligence pro- 


grams is one he calls heuristic search. We shall call programs which 


employ this organization as the sole or central organizational device 

HS programs. SAINT is an example of an HS program. HS programs can 

be considered to be programs which attempt to generate a path from a 
starting node A (usually the statement of the problem to be solved, 
given in the internal representation) to a terminal node B (usually the 
last link necessary to find a solution to A). The path from A to B con- 
sists of one or more nodes which are (again, usually) in the same problem 
domain as A and B. Thus in a theorem proving program the nodes would 
represent statements of possible theorems and in SAINT the nodes repre- 
sent expressions to be integrated. From each node the program is able 
to generate one or more successor nodes. All of these successor nodes 
could be examined to determine if they lead to a solution (a "B" node), 


but it is in the nature of AI problems that if this were to occur the 
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program would consume too much time and space. Hence heuristics are used 
to select a set (possibly a null set) of successor nodes for examination 
in preferance to others. The use of such heuristics leads to the "heuris- 
tic" term in "heuristic search." The process of examining nodes in the 
tree which is generally produced leads to the "search" term in "heuristic 
search." 

There are many strategies for guiding the search of the tree. How- 
ever several stand out and deserve to be mentioned. One strategy is 
called "depth first." It usually selects the last node generated as the 
one to be examined next. This strategy has the effect of forcing an 
examination of a single path until it either leads to a solution or the 
program decides that it will not yield a solution. Such a strategy is 
employed in most game playing programs. At the other extreme is a stra- 
tegy called "breadth first" which selects the node which was generated 
earliest. Such a strategy was used in the Logic Theorist [44]. SAINT 


chooses the node which represents an expression which it deems to be 
one of the simplest subproblems to be integrated. 

We wish to clarify the sense in which we refer to a program as an 
HS program. The fact that a subroutine in a program uses heuristic search 
does not always imply that the program is an HS program. For example if 
SAINT's simplifier had used heuristic search in order to simplify expres- 
sions, then this fact does not imply that SAINT is an HS program (for 
example SAINT could have been just a table look-up program). Nor is it 
the case that any program which performs search even if the search is 


guided by heuristics is always an HS program. We wish to reserve this 
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name to programs which rely on conducting a search in the same domain 
in which the problem is posed. Thus programs which search for a plan 
in a different space from the one in which the problem is posed and 
thereafter find the solution immediately are not HS programs.” 
The Trend toward Generality 

One of Newell's other conclusions in "The Search for Generality"” 
is that AI programs have tended in the recent past to shy away from 
dealing with complex problem domains such as chess, geometry, or intex 
gration, and have increasingly concerned themselves with generality. 
By programs which emphasize generality we shall mean programs which 
are concerned with an examination of mechanisms (e.g., heuristic search) 
which are useful in many problem domains. By programs which emphasize 
expertise we shall mean programs which concentrate on a particular 
(complex) problem domain. Examples of the trend toward generality are 
the advice taking programs (e.g., Black [ 3 ], Slagle's DEDUCOM{ 59 ], 
and even Norton's ADEPT [ 47 ]). These programs solve toy problems 
which have been posed from time to time by McCarthy. One of the striking 
features of these programs is how little knowledge they require in order 
to obtain a solution. In fact Persson, in his recent thesis[ 49 ] which 
deals with "sequence prediction" seems to feel that placing a great 
deal of context dependant information in a program would be "cheating." 
This emphasis seems to be useful when one desires to study certain 


. ay a a a 
Our emphasis regarding the space to be searched may differ from Newell's. 


In fact our need to use intuitive definitions and rely on analogies and 
examples points out the lack of a firm theoretical foundation in computa- 
tion, and in Artificial Intelligence. 
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problem solving mechanisms in as pure a manner as possible. 

Slagle, too, desired to use SAINT as a vehicle for studying certain 
problem solving mechanisms such as "character-method tables" (for example, 
method A is probably useful when the problem is of type 1 or type 5--see 
Minsky [ 41] for a discussion of this technique) and “inherited re- 
sources" (Minsky [41 ]). We, on the other hand, intended no such 
study of specific problem solving mechanisms, but mainly desired a 
powerful integration program which behaved closely to our conception 
of expert human integrators (it should be noted that Slagle compared 
the behavior of SAINT to that of college freshman calculus students). 
Nonetheless our experiment with SIN may be used to modify or improve 
general problem solving mechanisms. 

SIN, we hope, signals a return to an examination of complex problem 
domains. Greenblatt's chess program [ 22] is another example of a 
recent program which deals with a complex problem domain which has been 
considerably neglected in the last few years. 

The Emphasis on Analysis 

Our emphasis in SIN is on the analysis of the problem domain. This 
analysis is both an analysis that we performed and built into the pro- 
gram, but more importantly an analysis which the program makes while 
it is solving a problem. In order to achieve high performance in sym- 
bolic integration we did not require that the program make a very com- 
plex analysis of the situation. Nonetheless the analysis that SIN does 
make markedly affects the performance of the pissin: When SIN is solving 
one of SAINT's difficult problems the most noticeable difference between 


its performance and SAINT's is not in the increased efficiency of the 
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solution,” but in how quickly SIN usually manages to decide which plan 
to follow and the straightforward manner with which it obtains the 
solution thereafter. 

As we shall see in Chapter 4 SIN's methods are quite similar to 
those used by SAINT. However SAINT does not commit itself to a parti- 
cular method, but will frequently explore several paths to a solution 
until it finds some path which succeeds in obtaining the answer. Heur- 
istic search is used to find this solution path. Frequently such un- 
certainty is necessary in SAINT because it lacks the powerful machinery . 
that SIN possesses and relies on (e.g., the rational function package 
of MATHLAB). Thus SAINT is forced to search until it finds a path 
which leads to subproblems that it can solve. For example, in tects dz 
SAINT cannot obtain a solution by using the substitution y = tan x whict 
leads to baton dy since it nmannot integrate the rational functim. 
Thus SAINT is forced to contain a further substitution y = cot x which 
SIN can easily afford to ignore. In other cases the large number of 
subproblems proposed by SAINT arises when SAINT employs methods which 
do not perform a sufficient analysis or possess sufficiently tight 
progress constraints. For example in Pte dx, SAINT will consider 
transforming the quadratic in the numerator, though this transformation 
is not reasonable when one considers the square-root in the denominator 


In this problem SIN would note the square-root and would make a substi- 


Though SIN solves SAINT's problems about two orders of magnitude 
faster than SAINT's published figures, this statistic is deceptive. If 
SAINT were to be run under optimum conditions, SIN would only be about 
three times as fast on the average. The principal reason for this fact 
is that most of the processing time in SIN is spent in algebraic mani- 
pulation (e.g., simplification), and the cost for these operations is 
fairly constant in SIN and SAINT (see Appendix C). 
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tution which would rationalize the denominator. 

We feel that SAINT is not the only HS program in which greater 
analysis would yield improved results. In the MATER program of Simon 
and Baylor [ 2 ], heuristic search is used to find a mating combination 
in chess. When MATER considers the set of replies that Black might be 
able to make in response to a given move of White, it stores these re- 
plies in a "try list." The try list is ordered so that moves which have 
fewest responses are considered first. The set of moves which have the 
same number of replies are normally considered in a first-in, first-out 
manner ({ 2 ], p. 435). This leads to a breadth-first search. Had 
the moves been stored in a last-in, first-out manner a depth-first 
search would have resulted. This search would mean that the program 
would explore a path until it became worse than some other path in con- 
trast to MATER's criterion that a path is abandoned when it is no better 
than some other path. This slight change in the strategy of the program 
would lead MATER to find solutions to some problems on which it ran out 
of space, and would not materially affect its performance otherwise. 
This analysis of MATER is due. to Henneman [ 26 ]. 

While we do not wish to suggest that a radically improved perfor- 
mance can be had in all HS programs through greater analysis, we cer- 
tainly want to emphasize the effect that such analysis can have on many 
HS programs. Since any nontrivial analysis requires a good deal of 
context dependent information, we also wish to emphasize the need for 
such information in problem solving programs. In the long run, of 


course, complex analyses and strategies will have to be represented in 
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specialized languages. We would like to see this development occur in 
the Greenblatt program, for example. 
The Three Stages of SIN 

SIN is a three stage program. In this respect already the organi- 
zation of SIN differs from most AI programs which are composed of a 
single stage with a heuristic search as its principal organization. 

The multiplicity of stages allows the programs to devote increasing effort 
in later stages. 

Stage 1 of SIN uses a method (Derivative-divides) which solves most 
commonly occurring problems. The experiment in Appendix C indicates that 
this method solves half the problems attempted by SAINT. Some problems 
integrated by this method are: cos x, xe**, tan x sec’x, xv¥l1 +x, 

We feel that all too few AI programs employ the fact that in many 
problem domains there exist methods which solve a large number of prublems 
quickly. SAINT did employ this idea in its IMSLN (IMmediate SoLutioN) 
routine (see Chapter 4). However IMSIN is not as powerful as SIN's first 
stage. Evans' ANALOGY program {17] which is one of the few AI pro- 
grams which does not rely on heuristic search also could have profited 
from a first stage method. Evans' program deals with geometry analogies. 
Instructions given to humans taking a test based on these analogies are 
as follows: . "Find the rule by which figure A has been changed to make 
figure B. Apply the rule to Figure C. Select the resulting figure from 
figures 1-5," Evans' program performs as if it were following the in- 
structions: "Find the rule by which figure A has been changed to make. 
figure B. Also find rules which transform figure C to each of the fig- 


ures 1-5. Select the answer figure which corresponds to a transformation 
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which most closely fits a transformation from A to B.". The test makers 
are essentially suggesting that one should guess the answer figure. This 
scheme, we have found, is effective in almost all the problems attempted 


by ANALOGY. Consider the figures A, B, C. below: 


A B Cc 


A reasonable guess of the answer using the test makers' advice is: 


TRIAL ANSWER 

If such a figure is present among the. answer figures then one should 
choose that answer. All that would be required for this step is that 
one test the guess for an identity with the answer figures. If this 
scheme should fail to find an answer, then one would enter a second 
stage in the program in which one would "debug" the previous guess or 
employ an analysis similar to Evans'. Yet once one is forced to enter 
a second stage, one has a piece of information that one did not previ- 
ously possess--that the problem is relatively difficult. Such infor- 
mation may be used to guide further processing. A further use of guessing 
will be indicated below in discussing the Edge heuristic. 

The second stage of SIN is the stage in which we spent most of the 
programming effort. In this stage the program is able to apply eleven 


highly specific methods. The principle feature of this stage is that 
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the program decides which method, if any, is applicable to a problem 
quite quickly. We shall call the manner by which this stage of SIN 
operates hypothesis formation. The routine at the heart of the hypo- 
thesis formation mechanism in SIN is called FORM. FORM checks for 
locai clues in the integrand in order to generate an hypothesis regar- 
ding which method is likely to be applicable. Currently FORM can 
decide on the applicability of all but three of the eleven methods by 
using local clues. For example, if-FORM notes the subexpression sin(x), 
then FORM will call the method which handles trigonometric functions. 
The first step that any of the methods in this stage is supposed to 
make is to verify the hypothesis that it is able to perform a transfor- 
mation which will either solve the problem or simplify it. Thus if the 
routine which handles trigonometric functions does not. believe that it 
iy Spptaceble to the problem, as in ee x ev dx, then it will return 
the value FALSE to FORM. In that case FORM might eacertein a second 
hypothesis. Otherwise the method will continue to work on the problem. 

More generally we think of hypothesis formation as a three step 
process. First one analyzes the problem in order to obtain an hypothesis 
regarding the solution method. Then the hypothesis is verified by the 
method prior to attempting a solution of any subproblems. Finally, if 
the method appears applicable then it is used in an attempt to solve 
the problem. If the method does not appear applicable, a new hypothesis 
may be generated. 

We think of hypothesis formation as a model for a planning mechanism. 
As with any planning device one should strive to incorporate into the 


planner a great deal of knowledge regarding the capabilities of the rest 
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of the program. One aspect of the understanding that FORM has of SIN's 
routines is incorporated in its ability to "make the problem fit the 
method." By this phrase we mean that FORM is able to eliminate certain 
ambiguities in the problem. These ambiguities arise when certain subex- 
pressions in the statement of the problem hinder the recognition of the 
true nature of the problem. For example, the analysis that FORM makes 

of a problem allows it to suspect that an expression is a quadratic in 

x even though SCHATCHEN (see Chapter 3) did not match the expression to 

a quadratic. This occurs when FORM is examining a square-root of a 
‘rational function. Let us suppose that none of the methods that FORM 
has available in this case decide that they are applicable. FORM will 
now attempt a further analysis because such a subexpression usually 
represents a block to a solution. FORM considers two excuses for the 
fact that the methods did not seem to be applicable. Both relate to 
SCHATCHEN's matching capabilities. The first is that the rational func- 
tion inside the square-root was not expanded (e.g., x({1 + x)); the second 
that the rational function was not completely rationalized (e.g., x +2). 
FORM will therefore determine if theye two transformations are applicable 
to the rational function. If they are, it will reanalyze the problem to 
determine if its methods are applicable. Thus FORM's analysis enables 

it to localize the difficulties in a problem, and. its understanding of 
the rest of SIN allows it to find excuses for certain events and helps 

it to overcome the difficulties in a problem. In some of the cases just 
considered SAINT would have performed the same transformation (only expan- 
sion, though). Yet these transformations would be applied to the whole 


integrand and not to selected portions of it. 


21 


The third stage of SIN is the place that we reserved for general 
methods of integration. Such methods either search a great deal or 
involve much analysis and machinery. Hence we feel that they should 
be considered as a last resort. The experiment described in Appendix C 
indicates that only two problems required a method in this stage. The 
most interesting method of stage 3 is Edge which is based on the Edge 
heuristic and is discussed in Chapter 5. Edge is a novel integration 
method since it guesses the general form of the integral. Once a guess 
has been made, a "differencing" technique similar to GPS's [ 43 ] is 
applied to obtain the answer. As will be seen in Chapter 5 the guess 
is closely related to the antiderivative of a selected subexpression in 


the integrand. 


CHAPTER 3 


SCHATCHEN - A MATCHING PROGRAM FOR ALGEBRAIC 


EXPRESS IONS 


Introduction 


Our aim in this chapter is to develop a set of requirements 
for a language in which one can describe concisely and precisely 
algorithms for the manipulation of algebraic expressions. Several 
attempts at such languages have been made in the past. We would 
like to distinguish among these attempts two distinct approaches to 
an algebraic manipulation language. One could be called the 
command-oriented language. An example of a command would be "Let 
w be the name of the expression which results from substituting the 
expression named x for that named y in expression named z."" It is 
customary to abbreviate this to something like "w = subst(x, y, z)." 

The second approach can be called the pattern-directed (or 
production) approach. An example of a statement in such a language 
would be "x+x > 2%*x,"' which means that if the expression currently 
being examined matches (i.e., is of the form) x+x, then it is re- 
placed by the expression 2*x. Such statements will be henceforth 


called rules. A rule is composed of two parts, a pattern-match part 


(antecedent) and a replacement part (consequent). 
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A command~oriented language is desirable for man-machine 
interaction because the human is able to perform the desired pattern 
recognition by himself most of the time (see Martin [37], Engel- 
man [15]). It is also useful in those situations in which the 
algorithms being coded are straight-forward, that is, nothing 
unusual is likely to happen. An example of such a situation is a 
program which solves a system of linear equations with variable 
coefficients (see ALPAK [6]).- 

When the algorithms being coded become increasingly complex, 
the pattern recognition requirements of the algebraic manipulation 
language are increased. To meet these requirements, highly command- 
oriented languages, such as FORMAC [5], include some pattern recog- 
nition facilities (e.g., the PART command). However, these facilities 
are woefully inadequate for many purposes (e.g., simplification, in- 
tegration) and the need for a pattern-directed subset of an al- 
gebraic manipulation language has become clearly established. 

In this chapter we shall be concerned solely with the pattern- 
directed approach. At first, we shall rely principally on the 
reader's intuition and understanding of algebraic expressions. Our 
discussion will become more and more precise as we proceed. 

We shall first examine the requirements of the pattern- 
match. The requirements of the replacement part, which are simpler, 
are examined later. An application to simplification of the SCHATCHEN 


program which fulfills these requirements will then be discussed. The 
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chapter ends with an essay on simplification. 

Below "PLUS", "TIMES" will designate the usual arithmetic 
operations of addition and multiplication. The former will also be 
designated by "+", and the latter by concatenation. "XPT" will 


represent exponentiation. 
The Pattern-Match 


Let us consider the intuitive pattern for a quadratic in x -- 


namely, pattern Pl: 


(P1) Ax” +Bx+C 


All would grant that the expression El satisfies the pattern 


Pl with the values for 


(E1) 3x" + 2x +5 


A, B, C, being 3, 2, 5, respectively. Such an expression also 
appears to offer no difficulties to a matching program since there 
is a 1 - 1 correspondence between the elements in the expression and 
the elements in the pattern. Thus, a straight-forward left-to-right 
scan should yield the corresponding values for A, B, C and result in 
a match. Consider, however, the expression E2. E2 is also a 
quadratic in x. Yet it fails to have one of the properties that El 
enjoyed. A left-to-right scan of E2 will yield the 


(E2) 3x2 + 2x 


value 3 for A and 2 for B. However, we will have difficulty in 


26 


Let us consider how the match might determine that Bx=0 
implies that B=0. In Pl we implicitly introduced the convention that 
constants such as x are represented by lower case Roman letters and 
variables such as A, B, C, are represented by upper case Roman letters. 
Constants must match themselves. The values of variables are deter- 
mined by the pattern-match and depend on the expression. Furthermore, 
our knowledge of multiplication indicates that if a product in- 
volves a 0 factor, then its value is 0. (We shalk ignore cases with 
infinite factors.) Thus, if a product is matched with 0, it is re- 
quired for a factor to match 0. If Bx is matched with 0, then since 
x must match itself, B must match 0, otherwise the match fails. A 
complementary requirement we shall impose is that if a suodiee is 
matched with 1, then each factor must match 1. This requirement is 
redundant since it follows from our requirement for missing arguments 
in a product. 

In the above we have built into the match an understanding of 
the arithmetic laws involving 0 and 1 in sums and products. Note 
though that the match assumes that the expression has been simplified 
to some extent. Thus, the pattern Ax will not match the expression 
uw since the constant expression x is assumed to Satek only 
itself. 

However, information about 0-1 laws are insufficient as can be 


seen when we consider expression E5: 


(E5) x 
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In some cases such an expression could pass for a quadratic. In 
other cases (for example, in applying the quadratic formula) such 
an expression is not admissible as a quadratic. Note that the 
match as described above will result in zi value 0 for A, 1 for B, 
and 0 for C for expression E5. We need to be able to describe to 
the match that the value 0 for A is proscribed. In fact, we would 
like a more general facility allowing one to delimit the range of 
values that the variables in the match may have. We shall require 
that the variable must be allowed to satisfy a predicate. We 
shall indicate such a facility with a slash (/) as in pattern P2. 


In P2 we require A to satisfy the predicate NONZERO: 


2 
(P2) A WNONZERO x +Bx+C 


In examining expression E6 we see that we will need more 
predicates to limit the values of A, B, C, since £6 is certainly 


not a quadratic in x: 
2 
( £6) x + sin(x) x +1 


Let us consider pattern P3 which takes care of the difficulty 
in E6. 


2 
(P3) A NONZERO-AND-NUMBER * *® syumaeR **° /numBER 


Pattern P3, however, may be a too restrictive condition. It requires 
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that A, B, C, be numbers. 


For example, P3 will reject expressions E7 and E8 


(E7) <2 + 1x 
2 
(E8) x +xt+y 


since « does not appear like a number and since y is certainly 
‘not a number. If we wish to accept both E7 and E8, pattern P4 


might be suitable: 


2 
(P4) A /NONZERO-AND-FREEOFK * *®/rregorx **°/rregorx 


We shall assume that the predicate FREEOFX determines whether 
an expression contains an occurrence of x and has the value T (true) 
if it does not contain such an occurrence. 

We thus can see that the predicate facility is both a blessing 
and a headache since it pices one to consider quite carefully what 
it is that he desires to be matched. 

Further complications arise when we consider the expression E9, 
We recognize E9 to be a quadratic. 


(E9) . x + ge 


However, in doing so we made use of the fact that addition was a 


commutative operation. This leads us to require that the match must 


take into account the commutativity of addition and multiplication. 


(Non-commutative addition and multiplication could be represented 


with different operators than PLUS and TIMES.) As it turns out this 
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requirement increases the cost of the match greatly. It is now 
insufficient to perform a single left-to-right scan of the expression. 
We may be forced to traverse the expression several times. We shall 
assume, however, that the pattern is to be scanned once from left-to- 
right. This will allow us to use the values of previously bound 
variables. For example, a pattern for determining whether an ex- 


pression is a perfect square might be written as P5 


x2-4B 


(P5) 4 /NONZERO-AND-FREEOFK ™ *8/ppezorx **C/rRREOFK - 


AND - (Be -4AC = 0) 


since by the time we encounter C, the values for A and B should 
already be known or else the match has already failed. 

The predicate facility is one way in which the pattern can be 
used to direct the match. Below we shall give descriptions of 
other facilities and examples in which they might be used. These 
facilities are made available by the use of modes for the variables 
in the match. The desirability of the first of these modes is indi- 
cated in expression E10. 


(E10) 3x¢y + 2x +1 


The difficulty in matching expression E10 is due to the 
occurrence of more than one factor (other than x) in the terms in- 
volving mn We would really be interested in having the variables A 


and B act as coefficients of ri and x, respectively. This means that 
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in the term involving a the product of all the other factors is a 
candidate for A. To show this we shall use the indicator COEFFI 


(coefficient in TIMES) as a modifier for A as is shown in P6: 
2 
(6) A ycogrrr,NONZERO-AND-FREEOFX * **/cogrrr, FREEOFX* 


+ icoRFFP , FREEOFX 


In P6 we used the indicator COEFFP (coefficient in PLUS) to modify C. 

This means that C will match the sum of the remaining terms in the 

expressions. The result of matching P6 with E10 is: A=3y, B=2, C=l. 
In expression Ell we see another phenomenon which will necessi- 


tate the addition of a new mode. In Ell 


(E11) 2x? +,/2x2 +3 


there occur two terms involving x’. If we assume that each term in 
the pattern should match exactly one term in the expression, then 


the single term Ax” in the pattern will fail to account for the two 
terms in E10. We need a facility for specifying to the match that 


articular yariable in the pattern is to be considered a co- 
efficient in both a product and a_ sum. This is done in pattern P7 
by using the indicator COEFFPT (coefficient in PLUS and TIMES) to 


modify A and B. 


2 
7) A7coRFEPT,NONZERO-AND-FREEOFK * *®/conrFPT, FREEOFX **¢/coRFFP, FREEOFX 


With the machinery we have developed we can now match pattern P/ with 
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the expression E12: 
(E12) oo aay be eS 


The result of this match should be A=3ny + 6, B=0, Gey? +5y +1. 

In the above examples we were attempting to determine whether 
the expression was a quadratic in x. Suppose we wanted to generalize 
the problem in order to determine whether the expression was a 
quadratic in some atom, but where the atom was not fixed, but may 
itself change. More precisely, we desire a function QUADRATIC of 
two arguments EXP and ARG. This function is expected to determine 
whether EXP was a quadratic in ARG. P8 can be used as a pattern in 


QUADRATIC. 
(P8) 4 /cOEFFPT ,NONZERO-AND- FREEOFARG (YAR/equatars) ” + 


(YAR 


B }COEFFPT , FREEOFARG /BQUALARG) + 


© /COEFFP , FREEOFARG 


In P8 we introduced the predicate FREEOFARG which has the 
obvious related function to FREEOFX in pattern P7. The predicate 
EQUALARG tests the value that the match assigned to VAR for equality 
to ARG. 

Let us now consider the problem of extracting a perfect square 
from a sum. More precisely let us consider the situation in which a 
sum has three terms which are individually of the form A*VAR’, B*VAR 


and C, and whose relation is defined by B°-4AC=0. This differs from 
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the situation described in pattern P5 in that the expression may 
now have more than three terms and in that the value of VAR is 
originally unknown and depends on the expression being matched. Our 


first attempt is to describe this situation with P9: 


2 
9) A pwonzero-anp-numBer “A2"*3 puppge VAR peper-anp- (B?-4AC=0) 


+) ;conFFP 


It turns out that pattern P9 does not satisfy our requirements 
because there is some ambiguity regarding VAR. In predicate P8, 
VAR was determined aiauiis by the predicate EQUALARG. In the 
current situation no such a priori predicate exists. The first 
value of VAR can be essentially anything. To indicate this we can 
write VAR/rayg instead of VAR, where TRUE is a predicate which is 
true on any input. However, the second occurrence of VAR in the 
pattern (i.e., in B/yumpgrn VAR) is intended to be fixed. That 
occurrence of VAR must be the same as the previous value attached 


to VAR. To make this point clear, let us consider expression E13; 


(E13) sy? 42x +1452 + 2y 


This expression will match pattern P9 with Awl, B=2, C=1, DeSz+t2y, 
and with the first value of VAR equal to y and the second snuai to x. 
To avoid this situation we could write the second occurrence of VAR 
as VAR] ;pquALVAR- This is a fairly clumsy mechanism (even though a 


similar device was used in P8). What we shall do instead is to 
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define a new mode called CONV in which the first occurrence of the 
variable (e.g., VAR) will satisfy the predicate (e.g., THUE) and 

the latter occurrences must match the expression matched during the 
first occurrence. We thus. arrive at pattern P10. (The CONV mode is 


directly related to the PAV (pattern variable) mode of CONVERT [ 23].) 


A 2 
(P10) /NONZERO-AND-NUMBER (“4® /conv, TRUE) + Brryper VAR + 


C pNUMBER-AND- (B7-4ac=0) *?/coRFFP 


Pattern P1O will match E13 with A=l, B=2, C=Ll, D=2x+5z, and VAR#y. 


Let us consider P10 with expression E14: 


(B14) yey +e 42x41 


The first attempt will be to match VAR with y. This attempt will 
fail and the match will fail even though a perfect square exists if 
VAR were to match x. What is required here is a facility for direct- 
ing the match to search for further possibilities. It is assumed, 

of course, that the user of such a facility is aware that it may 
cause a profound increase in the cost of a match. We shall intro- 
duce such a facility with a mode which indicates a loop over the 
expression. Such a facility may be used when there exists a set of 
variables (such as A, B, C) in pattern P10 which are mutually inter- 
related (e.g-, B’-4AC#0). This facility will direct the match to con- 
tinue making trial guesses for the variables until one set is found 


which is satisfied or until all possibilities have been exhausted. 
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In programming terms the loop facility in the problem of pattern P10 
will ask for a 3-level loop in which all possible values for A, B, C 
(note that VAR is determined along with A) are examined until one set 
is found which satisfies B*-4AC=0. The syntax for the loop facility 


is given in pattern PIl: 


Gas + 


A 2 
(PLL) “7T90P (A,B,C) ,NONZERO-AND-NUMBER /CONV, TRUE) 


VAR+C 


8 NUMBER /NUMBER-AND- (3° -4ac=0) *?/coEFFP 


Although in the above we have concentrated entirely on 
describing patterns for quadratics, our intention has been to 
describe a set of requirements for a language which can handle a 
far richer set of tasks. To indicate the power of the machinery we 
have developed, we shall give below a pattern which tests for the 

2 24: : 
occurrence of sin B + cos B in a sum. Pattern P12 will match ex- 


2 
pression E15 and results he bees” &) + 1, B=2x, C=2, and D=3y+t2sin (x). 


a: 
(P12) AycoRFFPT,LOOP(A,c), NONzEROS?” ( /CONV,TRUE) + 


cos“ (B) +D 


© /COEFFPT ,NONZERO /COEFFP 


(E15) 3y + Dt + 5s in? (2x)coa“ (y) + 2cos? (2x) + Hin GS 


The implicit relationship between A and C in pattern P12 


appears fairly trivial -- that is, both A and C must be nonzero. 
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However, expression EI5 shows that the loop facility helps to get us 
out of the trap of matching B to x in the Dein’ Ge) tenn: 

We have so far neglected a discussion of the matching require- 
ments of patterns which include exponentiation. We have let in- 
tuition guide us through the cases where exponentiation did occur 
in the patterns above. As before a constant expression in the pattern 
of the form x {e.g., sin” (x)) must match itself. Otherwise, if ab 
is to be matched against the expression 0, we shall assume that it is 
necessary and sufficient for A to match 0. (The difficulty that 
arises if B likewise were to match 0 is ignored.) 

If a® is matched against 1, then either B must match 0 or A 
must match 1. Note that this can lead to a difficulty if both A and 
B are variables, since only one value will be detévetied. If ab is 
matched against z 2, then B must match E, and A must match By or 
B must match 1 and A must match By 

In pattern P13 we are testing for an expression of the form 
sin™ (x) cos” (x). This pattern will match the expression sin (x) 
and result in the values N=1, M=0. 


N M. 
ain / INTEGER oe / INTEGER 


(P13) (x) (x) 


Pattern P14 is included here to indicate some of the ambiguity that 


is inherent in patterns. 


N M/ INTEGER 
(P14) (4 monzeR0-AND-FREEOFX x /INTEGER 4. ® / FREEOFX) 
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P14 corresponds to the intuitive pattern (ax" +b)". When P14 is 
matched against (x°+1)> it will yield A@l, Bel, N=2, M=3. When it 
is matched against By it will yield Awl, B=0, Nel, M=6, although 
A=1, B=0, N=2, M=3 serves equally well as a set of solutions. We 
used this pattern to indicate some of the limitations of the match- 
ing program we have been defining. In the case of the expression 
3 we obtain via pattern P14 the implicit relation NM=6. This 
means that we have given the program insufficient information re- 
garding the choice of values for N and M in this case. The match 
cannot be expected to do very well in this instance. 

A second difficulty with pattern P14 which has already been 
mentioned occurs when it is matched against 1. In this case our 
requirements for the match indicate that all that shall result is 
M=0. We could have obtained A=0, B=l if the requirements regarding 
the matching of 1 had been reversed. Neither situation is wholly 
satisfactory. However, it is hard to foresee a compromise solution 
which will be wholly satisfactory. 

The lesson that is learned from pattern P14 is that it is up 
to the user to make his patterns sufficiently restrictive so as not 
to yield ambiguous situations in those cases in which they are Likely 
to be applied. 

The impression that is likely to be in the minds of some 
readers is that more machinery is yet to be described. We do not in- 


tend to do this. In some strong sense the design of a good algebraic 


PERMITS LAE ee a ae Fa. rec tata ey Sea i eas 


38 


respect to x is equivalent to 0 and if the second derivative is 
different from 0. Theoretical results by Richardson (see Appendix B) 
indicate that there will be problems even with such a special purpose 
match which it could not determine correctly in finite time. Special 
purpose devices probably could be designed for each pattern that 
could be written for our match. Some of these would have to be quite 
ingenious in order to be more powerful than our match. These de- 
vices might be necessary in certain situations. However, they run 
counter to our desire for a language in which one can write concise 
rules. 

We shall have more to say about the pattern match when we dis- 


cuss the existing algebraic manipulation Languages below. 


Replacement 


Having discussed the matching part, we shall now describe the 
process by which new expressions may be generated using the results 


of the match. This process we shall call the replacement part of the 


rule. 
Let us consider the intuitive statement of rule Rl? 
2 
(R1) ax + Bx +C+ Ay ¢+0-2 


A successful match of the left-hand-side of R1 should result 


in a dictionary containing the values of A, B and C. This dictionary 
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is then used to generate the right-hand-side expressions by re- 
placing the variable names by the values which were assigned to them 
during the match. If we consider the expression gS the match 
should result in A=l, B=2, C=l and the rule should yield the ex- 

22 


: 2 ? 7 ; : ; 
pression ly +1- el’ Since this expression is unsightly we shall 


require that the replacement step should simplify the expression. 


Thus, Rl would result in the expression y?. (Note that Rl performs 


the operation of completing a square.) 


Suppose we were given rule R2: 


(R2) cos (nx)-#cos" (x)- Geos”? (x)s in” (x)#G eos” (x)sin“ (x) 


R2 computes the first 3 terms in the expansion of cos(nx) in terms 
of cosx and sinx. If we had matched the expression cos (4x) with 
rule Rl, we would result in an expression involving the combina- 
torial terms G) and oy In order to have an expression amenable 
to further computation jG) and om) should be evaluated to yield 6 
and 1, respectively. Thus, we require a facility for evaluating 
selected portions of the expression. With this facility R2 can be 


written as R3. 


(R3)_— cos (ax) + cos” (x)-BVAL(G))cos 7) (x)s in” (x) EVAL (()) 


ET aties hares 
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The replacement routine will. substitute for each atom which 
appears in the right-hand-side, its value in the dictionary if there 
is such a value. If no such value exists, the atom will be replaced 
by itself, that is, it will be quoted. We will require a supple- 


mentary quoting mechanism so that we may use right-hand-sides in 


which names of variables appear which are not replaced. An example 
of a rule using such a facility is R4. DIFF(A,B) is assumed to 


yield the formal derivative of A with respect to B. 


(y) 


sty (y) 
(R4) £ (x) 


g 
~ £(x) EVAL (DIFF(g(y), (QUOTE x))) 


Although for expository purposes we used only intuitively written 
pattern matches in the rules above, it should be clear that in 
practical situations the left-hand-sides of the rules would be re- 


placed by more explicit matching forms. 
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xisting pattern-directed langua 

The requirements given above for a matching and a replacement 
program are satisfied by the SCHATCHEN* and REPLACE routines used 
in SIN. We would like to place these programs in their historical 
context. SCHATCHEN has been most influenced by ELINST (ELementary 
INSTance), a set of routines included in Slagle's SAINT for the 
purpose of matching algebraic expressions to forms. ELINST 
satisfies many of the algebraic properties of SCHATCHEN such as 
variable arguments to PLUS and TIMES, missing operators, and 
commutative operators. It differs in that it does not give the 
user explicit control mechanisms of the scan of the expression. 
ELINST will generate al] possible sets of values for the 
variable and only then will it apply the side relations to 
determine those which satisfy the pattern. Besides this weakness, 
ELINST suffers most -by being essentially undescribed. I suspect 
that had Slagle described ELINST in 1961, then some of the 
proposals for algebraic manipulation languages which were. made 
since 1961 would have had a different character. ELINST had to 
be as general as itis because the problem that Slagle was trying 
to solve required such generality. Furthermore Slagle encountered 
grave problems in fitting his program into the memory (32K) of the 
7094 and thus chose to make use of the economy of calls to ELINST 
in many situations in which it would otherwise have been wiser to 
write special purpose matches. Thus he claimed that one half of 


the time that was spent usefully by SAINT (i.e., excluding 


*match-maker in Yiddish 
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garbage collections) was spent in pattern recognition. 
The features of the algebra-oriented pattern-directed 
languages that were introduced in the past six years (e.g., 
AMBIT hd FORMULA ALGOL 8] Fenichel's FAMOUS 9) PANON~ 
IB (81)* appear to have a great deal in common. PLUS and TIMES are 
restricted to at most two arguments. Operators that appear in 
the pattern must explicitly appear in the expression. Sometimes 
also PLUS and TIMES are not recognized as commutative operators. 
All these restrictions mean that the patterns are highly. specific 
and that several rules are necessary in order to accomplish a task 
that can intuitively be stated in a single rule. The advantage that 
such matching routines have over a more general one such as SCHATCHEN 
is that each of the rules is quite readable and relatively efficient 
to execute. However the effect of a set of rules which is equivalent 
to a single SCHATCHEN: rule is probably harder to guage than the 
SCHATCHEN rule itself. The. execution time of a set of rules is also 
probably longer than the execution time of a single SCHATCHEN rule. 
Here is the kind of rule set that would be required in such 


languages in order to recognize a quadratic in x: 


2 2 

x ax = 

Pr + bx “se + bx 

ae +x ae +x 

(RS) 2 2 

x + bxtec ax + bx +c 

es +x+c ae? + bx tec 
2 ; 2 


x +e ax +c 


wi gL a SBR te ES vate OS Gen FP SIRE ee ete de 
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*It should be noted that these languages have a greater generality 
than a discussion of their usefulness in matching algebraic 
expressions would indicate. 

In proposing the above twelve rules we are assuming that the 
language provides for commutativity in. PLUS and TIMES and for the 
ability for declaring a, b, c to be FREEOFX. In systems in which 
a minus sign is recognized as a distinct operator one might require 
even more rules. Unfortunately the rule set proposed is not as 
powerful as Pattern P7 because each term in the pattern will be 
matched with exactly one term in the expression. It appears that 
one could overcome this restriction only by a recursive or iterative 
application of the rules. In fact, the FAMOUS system relies on the 
fact that: the rule set is applied repeatedly to a given expression 
although in FAMOUS' case the reason for this reliance has a deeper 
philosophical significance owing to Fenichel's strong affirmation 
of the concept of local transformation embodied in #4 -theory. 

In our previous discussion we have emphasized the desirability 
of the implicit arithmetic operators PLUS, TIMES and EXPT in the 
pattern. There are, however, instances where the operator must 


explicitly be present. In the rule below which is used for 


rationalizing sums in a recent thesis by Iturriaga [28] | 
+ 
(R5) at?/¢ > a 


the "+" operator must be present as well as the "/" operator. It 


is possible to simulate the requirement that these operators must 


be present by requiring that A cannot be 0 and that C cannot match 


1. However such a situation is clumsy at best, and a facility for 
explicit operators should be provided. With such a facility for 
explicit operators (present in the early versions of SCHATCHEN, 

but dropped because of lack of use), a user of the algebraic mani- 
pulation system will be capable of programming in a wide variety 
of styles. These will range from the fairly rigid and inflexible 
rules of the rule set RS to the type of rule exemplified by pattern 
Pll. 

We shall also mention a slight controversy regarding the number 
of arithmetic operators which should be present in the internal 
structure of an algebraic manipulation system. Some people appear 
to believe that a large number of operators including unary minus, 
quotient, and difference is a good idea. Experience has shown, 
however, that such systems, expecially when combined with an 
inflexible pattern-match, require an increase in the user's awareness* 
which tends to downgrade his problem solving ability. The less a 
user must be concerned with what is actually happening, the more 
likely he is to solve hard problems. Of course, if the details 
which are hidden in the system involve exponential growth or the 


like, hiding such details can be disastrous. This is not, however, 


*"Avareness" is a term used by Weizenbaum to indicate the degree 
of attention to detail which a user is required to maintain in 


a given situation. 
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the situation when arithmetic operators are translated internally 
into only three - PLUS, TIMES, and EXPT. At the input-output level, 
just the opposite effect takes place. Here we wish to let the user 
of the algebraic manipulation system have the flexibility with 
which he feels comfortable. The recent trend in input-output 

of algebraic expressions has been to have this flexibility 


[37 


(see Martin ). 
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Implementation of SCHATCHEN 


SCHATCHEN is currently implemented as a set of LISP programs. 
Several people have suggested that one should embed it in a more 
general language. CONVERT [23 ] seems to be the regnant choice for 
such a language. CONVERT is a general pattern directed language with 
much machinery for the transformation of list structures. In fact, 
two modes in CONVERT which were introduced in the past year (i.e., 

BUV - bucket variable - and UNO - unordered search) were introduced 

by Guzman and McIntosh, the designers of CONVERT, with the intention 
of such embedding. Interestingly enough, the BUV mode is sufficiently 
general that it has replaced other CONVERT modes. The advantage of 
such an embedding is that it would allow the user to employ other 
facilities of CONVERT. These facilities are quite impressive. The 
major disadvantages are due to inefficiencies in a straight-forward 
implementation. In order to discuss these inefficiencies we will have 
to describe the manner in which SCHATCHEN performs a scan. 


Suppose we have a pattern of form I, 
(I) Pl + P2 + P3 
and an expression of form II. 
(II) El + E2 + E3 + E4 


The scan proceeds by attempting to match Pl with El. If that fails 


an attempt will be made with Pl and E2, then Pl with E3, If Pl 
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matches E3, then E3 will be deleted from II, and the scan proceeds 
by matching P2 + P3 with El + E2 + £4. This deletion is done by 
using the RPLACD subroutine of LISP. In general this is an unsafe 
method. It means that any prior references to {£ will refer to the 
expression with E3 deleted, which can be disastrous.: However, great 
care is used inside SCHATCHEN to maintain pointers to the excised 
expression and to restore it to its original shape once the match 

has been performed. Furthermore, all the pointers that a pattern 

can have to intermediate results are carefully copied. The alter- 
native to the deletion approach is to completely reproduce expression 
II without E3. The alternative is quite costly especially when the 
number of failures in identification is taken into account. Suppose 
patterns Pl and P2 are related vida loop, then Pl may have to be 
rematched after an original successful match. More likely is the 
case that Pl is matched with E3, but P2 finds no match at all and 
thus the match fails. The method of reproducing an expression en- 
tirely following a match of a subpattern with a subexpression is 

thus seen to be quite expensive. A normal string transformation 
language or even a list transformation language such as CONVERT 
(except for the UNO mode) does not face this difficulty because the 
scan along both the expression and the pattern is left-to-right. Thus, 
if Pl matches E3, P2 can only match subexpressions to the right of E3, 
(i.e., E4). When one introduces commutativity into the picture, the 


situation becomes more complicated. Thus, in our example, after Pl 
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matches E3, we must start P2 with El, P2 with E2, P2 with BA. It 
is the commutativity requirement which necessitates the rescan of 
the expression. 

An alternative to the SCHATCHEN scan is to scan left-to-right 
along the pattern with each subexpression. Thus, if El does not 
match Pl, then a match is attempted between El and P2. With this 
scan one is forced to keep intermediate results and perform complex 
processing at the end of ‘ii scan in order to determine whether the 
variables of the match satisfy their predicates and are properly 
related. This alternative was rejected as being too unwieldy. 

Another aspect of the implementation of SCHATCHEN turns out 
to have important semantic properties. Intermediate results in 


SCHATCHEN are stored in a special list called ANS. On this list we 


‘also find the excision information mentioned above as well as markers 


used to indicate levels of scope of variable bindings. A successful 
technique in using SCHATCHEN is to use predicates which are them- 
selves calls to SCHATCHEN and which introduce new variable bindings 
to the ANS list. Thus, a variable A may be required to be of the 
form BC, where B and C must match certain patterns. By calling 
SCHATCHEN directly as the predicate for A, then the values of B and 
C would be lost. However, if one calls a routine exactly one level 


below SCHATCHEN (namely M1), then one can preserve the values of B 


and C in the final result as well as obtain the full power of SCHATCHEN 
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The fact that ANS is available for all to use during the match can be 
dangerous since the predicates could accidentally destroy a great 
deal of information. Nonetheless the advantage of such an implemen- 
tation device far overrides this difficulty. The ANS mechanism 
represents another dit cecenrs between CONVERT and SCHATCHEN. CONVERT 
does not allow direct access to its dictionary. Many of the modes in 
CONVERT, however, perform some change to this dictionary. In 

this regard it should be noted that FLIP [62], another pattern- 
directed language which is similar to CONVERT in emphasizing the 
transformation of lists, concentrates on the control of the scan by 
the user. FLIP, however, lacks much of the recursive machinery of 
CONVERT and thus appears £6 be less likely a candidate for a language 


in which to embed SCHATCHEN. 


A Partial Description of SCHATCHEN 


SCHATCHEN has two arguments, an expression and a pattern. 
These will be denoted e and p, respectively. Variables in the 
pattern are written in the form (VAR name pred argl ... argn) 
where . 

name = name of variable 

pred = predicate associated with the variable 

argi are arguments 2 through (n+l) of pred. 


The first argument of pred is assumed to be the expression that the 


match assigns to the variable. 
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If a variable has a mode, the mode is written in prefix form. 


Thus, 4 ICOEFFPT NUMBER™ becomes (COEFFPT (VAR A NUMBER) x), and 
A /COEFFP , EQUAL 5 becomes (COEFFP (VAR A EQUAL 5)). (This pattern 


tests for the equality of the variable A with 5.) 
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SCHATCHEN (e p ) 


If e equals p, the match succeeds. 

If p is of the form (VAR name pred argl, ..., argn), 

then pred (e argl arg2, ..., argn) is evaluated. 

(Note that argl, ..., argn are replaced using ANS, 
SCHATCHEN's internal push down list. If they contain 
names of variables on ANS the most recent corresponding 
values are used. Otherwise, EVAL (the LISP interpreter) 
will obtain the value of the variables). If the value of 
pred is TRUE, the match succeeds and ((name « e)) is 


appended to ANS. Otherwise the match fails. 


If p is of the form (op pl ... pn) and op is not PLUS, 
TIMES or EXPT, then e must be of the form (op' el ... en) 
and each pi must match ei and op must match op'. Other- 


wise the match fails. 


If the pattern is of the form (EXPT pl p2), then 1) e is 
(EXPT el e2) and pl matches el and p2 matches e2 

or 2) e is 0 and pl matches 0 

or 3) e is 1 and a) p2 matches 0 or b) pl matches 1 

or 4) p2 matches 1 and pl matches e 


Otherwise the match fails. 
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If the pattern is of the form (op pl p2, ... pn) and 

op = PLUS or TIMES, then if e is not of the form 

(op el, ..., em), e is transformed to (op e). In. this 

case an attempt is made to match each pi with some ej. The 

scan starts with pl matched with el. If that fails pl is 

matched with e2. If pi matches some ej, ej is deleted 

(using RPLACD) from e and the scan continues with pit+l 

matched with the first subexpression remaining ine. If 

for some pi no ej can be found to match it, then pi is 

matched with 0 if op = PLUS of 1 if op = TIMES. If that 

also fails, the match fails. If all the pi have been 

matched, but some ej have not, the match Likewise fails. 
Exceptions to the treatment above are due to modes. If op =PLUS, 
and pi is of the form (COEFFPT (VAR name pred argl, ..., argn) pl,..., 
pk), then the remaining expression is traversed with the pattern 
(COEFFT (VAR name pred argl, -.., argn)pl, ..., pk). Each sub- 
expression that is thus matched is deleted from the expression. The 
simplified sum of the results of the scan becomes the value of the 
variable and is appended to ANS. If no subexpression could thus be 
matched, then pred(0, argl, ..., argn) is attempted. If this too fails, 


the match fails. 


If op = PLUS and pn is of the form (COEFFP (VAR name pred argl,...,argn)) 
then if e is currently of the form (PLUS ei, ..., en), then pred 


(e argl, ..., argn) is evaluated. If the value of pred is true 


((™ame. e)) 
then pred (0 


((name. 0)) 


If op = PLUS 
(COEFFT (VAR 
(TIMES pl, 

e remains of 


is attempted. 
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is appended to ANS. If no subexpressions remain in e 
argl, ..., argn) is attempted. If it succeeds, 


is appended to ANS. Else the match fails. 


and pi is of the form 

name pred argl, ..., argn)pl, ..., pk), then 

., pk) is matched with e. If the match succeeds and 
the form (TIMES el, ..., en) then pred (e argl...,argn) 


If it fails, the match fails. If no subexpressions 


remained in e, then pred(l argl, ..., argn) is attempted. If this 


succeeds (( name. 1) is appended to ANS. Else the match fails. 


All other matches fail. 
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An Application of SCHATCHEN 
SCHVUOS - SCHATCHEN'S VERSION OF AN UNASSUMING 


OPERATIONAL SIMPLIFIER 

Owing to space considerations of the 7094, SIN required a 
small but powerful simplification program. Such a program, 
called SCHVUOS, was written and it gained both its power and small 
size by capitalizing on SCHATCHEN's matching capability. SAINT's 
simplifier was a LAP (the machine-language assembler for LISP) 
coded subroutine written as a Master's thesis by Goldberg in 
1959 [21]. 

SCHVUOS does not assume a standard (canonical) form of an 
expression. This means that it will be slow when the expressions 
to be simplified are large. In integration, however, it is rare to 
encounter large expressions. The speed gained by a canonical order 
can be seen in the following example. Suppose, two simplified 
expressions are to be added. If the expressions are to be canon- 
ically ordered, then the addition process is basically a merge of 
the expressions with a simplification occuring if two terms are 
identical except for a constant factor. If, however, the express- 
ions are not ordered then we generally require a two stage process. 
Given a term in the second expression we must determine if there 
exists a term in the first expression which is identical to it ex- 
cept for a constant factor. This may require a complete traversal 
along the first expression. If the number of terms in each of the 


: : : 2 
two expressions is n, this process takes on the order of n- term-to- 
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term matching steps. The canonical order scheme requires only on 
the order of n steps. However, some time must be spent in deter- 
mining the canonical description and keeping its value around. 
Furthermore, the routines that generate the canonical order are 
usually very space consuming. Thus, the use of a canonical order 
is only worthwhile if the expressions are to be heavily manipu- 
lated. 

As has been implied in the above, much of the program effort 
and execution time in a standard simplification program is spent 
in collecting terms in sums. Related effort is spent in collecting 
exponents in products. In SCHVUOS the collection of terms in a 
sum is handled by calling SCHATCHEN and asking it to determine the 
coefficient of the first term in the sum. 


Suppose we had the expression E18, 


(E18) 2x + 3x7y +z+¢+¢xt+ ye 


then SCHVUOS will strip the first term of the sum of its coefficient 


and generate the pattern P15: 


(P15) A /COEFFPT ,NUMBER® * ®/cOEFFP 


SCHATCHEN will yield A=3, Badu ytatyx- . Next the pattern P16 is 
generated on the expression B. Now SCHATCHEN will result in A=4, 
Bez. 


2y +B 


(P16) A }COEFFPT , NUMBER™ /COEFFP 
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2 2 
Note that xy and yx are recognized as equivalent. Thus, the 


simplified sum is E19 


(E19) 3x + hehe +z 


The operation of collecting exponents in a product is handled 
similarly. 

The basic simplification program requires only about two pages 
of LISP code in contrast to a typical LISP simplification program 
(such as Korsvold's[ 33 ]) which requires about 20 pages of LISP 
code and has the same power, for our purposes, as does SCHVUOS. 


SCHVUOS contains some unusual simplification rules because of 


the integration environment in which it operates. Thus, arcsin(sin x) 
simplifies to x and sin(arccos x) becomes ¥1-x*. Moreover, 
lt log y + log z becomes ees (This transformation is also 


handled by a call to SCHATCHEN. ) 

The simplification of an expression is done recursively. Each 
operator (e.y., PLUS) first simplifies all its arguments. The 
exception is TIMES which results in 0 if any of its arguments is 0. 

It is possible to achieve an economy if expressions which have 
been simplified in the past are not simplified redundantly. This 
has led to the AUTSIM-bit in FORMAC [63] and to a similar device in 
Martin's simplification program. In SCHVUOS one can sometimes achieve 
this effect by setting a flag which means that the arguments of the 
top level operator, PLUS, say, are already simplified although their 
sum, say, need not be simplified. This is done in the differen- 


tiation program used in SIN. 
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Attitudes Toward Simplification 


There seems to be a wide range of attitudes of people in the 
field of algebraic manipulation regarding the role that an alge- 
braic manipulation system should play in simplification. One view, 
let me call it the conservative view (held by Fenichel, for example 
maintains that the system should not simplify expressions until 
specifically told to do so. In this point of view there is to be n 
fixed system's simplifier and no fixed canonical order of expressio 
The conservative view negates the view of those whom we shall call 
the liberals (exemplified by the FORMAC design) who believe in a 
canonical order, in a fixed simplifier and in implicit simplifi- 
cation. One might even define a third viewpoint, a radical one, in 
which the system will represent expressions internally in a form 
quite different from their extemal form. Rational function progra 
(ALPAK [6], PM[12], and MATHLAB's rational function package [36 ]) 
adopt this approach. A radical system is prone to use the distri- 
butive law indiscriminantly and to transform trigonometric function 
into their exponential form in order to take advantage of the power 
ful simplification algorithms which are then available. 

Two considerations should guide one in designing an approach 
to simplification within a given system. The first is the general- 
ity of the system, that is the range of problems which could be 
reasonably solved by it. The second is the efficiency of the syste 


in the solution of its problem. It appears to be an axiom that the 
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While in the above examples one can reasonably hope to trans- 
form one expression into another, this is not true of the example 
below. This example is intended to show that even the most obvious 
simplification rules can be harmful in some situations. Suppose 
a user generates three terms of an infinite series. We shall 
assume that he is attempting to obtain a general term. Suppose that 
the first term is 1, the second 2x+l and the third xs 5 ck I 

; ? : 2 2 
maintain that if these terms were presented as x+l-x, x 4+2x+l-x’, 
3 2 3 . ; : 
x +3x +3x+1l-x” , then the result would contain more information than 
before, for it would lead to a reasonable hypothesis that the general 

: non . pints 2 
term is (x+l) -x . Yet one of the first rules of any existing 
simplifier is x-x 70. 

One argument that can be given against the radical approach 
; : ; . . 1000 
is given in the problem of integrating (x+1l) . If one expands 
this expression, as a rational function package is likely to do, 
then one will use a great deal of space and time and result in an 
unsightly expression. However, the expression can be easily inte- 

‘ 1 1001 , pe eS nots 
grated to yield yoqp— (+1) by leaving it in its original 
form. Recent information indicates that future ALPAK systems will 
leave expressions in their factored form in order to resolve 
difficulties created by problems such as this. 

What then is the attitude that one should adopt toward simpli- 


fications? A reasonable one would be to use each of these attitudes 


where they are most useful. In cases where there is a need for a 


| ines ates 


ee eS ee ea ee ee ee ee ee Oe ae ee ee Te ee ee ee 
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great deal of rational function manipulation and relatively little 
pattern recognition one should adopt a radical attitude. When the 
problem is not easily framed as a rational function problem or 
where the computational effort is light, but where the pattern 
recognition is not crucial, then you adopt a liberal attitude. 
Finally, when a standard simplifier will lead you into difficulty 
you just must restrict its effect. 

Separating the radical attitude within a program from the 
liberal one is usually easy -- there is a separate program to 
handle rational dureeiotan Between the liberal and conservative 
modes there are too many intermediate steps. Here what appears 
to be required is a black-box simplifier with many inputs or in- 
dicators. With these inputs one could control the effect of the 
simplifier. It would be interesting to see if one could formulate 
a language in which a program (or a user) could communicate with 
the simplifier. For example, it could check certain indicators 
before attempting any given simplification. The cost for such 
checking could be quite minimal. 

An example of the use of such. a simplifier is represented as 
follows: A.common simplification rule is (ab)" = ab". However, 
in general this rule is inaccurate (e.g., when a=-1, b=1, m=, the 
left-hand-side yields 1, the right-hand-side, -1, assuming a. standard 
interpretation of the square root). If one suspects that this rule 


will lead to difficulty then one can leave a test condition in the 
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indicator for this rule which will weed out those cases in which 


the result is erroneous. 


CHAPTER 4 


SIN - THE SYMBOLIC INTEGRATOR 


Introduction _ 

In this chapter we describe the operation of SIN. At first SIN's 
flow of control is analyzed. Then each of the methods used is described 
in detail. Finally, the performance of SIN on two examples is shown. 
Throughout this chapter the contrast between SIN's and SAINI's approach 
and methods will be made clear. 


Flow of Control and Subproblems in SIN and SAINT 
A problem given to SIN may be said to pass through the three stages 


of Figure 1. 
Stage 1 
Yes Return integral 
No 
Stage 2 
Problem can be Either 
transformed or Yes 1. Apply SIN to a trans- 


solved by spe- 


cial methods? formed problem and 


return value of SIN 


or 
No ; 
4 2. Solve problem using 


internal mechanisms and 
return result as value. 


Stage 3 


Problem can be 
solved by more 
general methods? 


Yes Return integral 


No 
Return notice of failure 


Figure t - The 3 Stages of SIN 
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As figure 1 indicates, the first stage solves simple integration 
problems. In the second stage, we determine whether one of about ten 
specialized’ methods is applicable to the problem. This determination is 
made by a routine called FORM and is quite fast. If a method is found 
to be applicable the problem will be either transformed and SIN will be 
asked to integrate the transformed problem, or the problem will be inte- 
grated using techniques internal to the methods. If no method is found 
which is applicable, a more general method will ba called in stage 3 in 
order to solve the problem. In this chapter we shall describe a third 
stage consisting of a simple Integration-by-parts routine. In Chapter 
5 we shall describe the Edge heuristic which we expect will be the basis 
of methods used in this stage in the future. 

Since most problems are expected to be solved by stages 1 and 2, 
we shall describe the ‘organization of these stages here. The control 
of the methods used in stage 3 is specific to these methods and will 
be described separately. 

We note that the methods of stage 2 can call SIN to solve sub- 
problems. When this occurs the flow of control and subproblems is given 


y Figure @ 
Subproblen| fSolution | 
Gh) 
Subproblem| ee @) 
Subproblen| [Solution 
@) 


ee 
a 


oe-d| 


Figure 2 - Usual Flow of ' Figure 3 - Flow of Control 
Control and Subproblems and Subproblems in SIN 
in SIN When Problem is a Sum of 


Three Terms 


If a subproblem is a sum, then each term in the sum will be inte- 
grated separately, and the flow is given by Figure 3. 

It should be noted that if a method in stage 2 can transform a 
problem, the problem is not passed to another method in stage 2 or stage 
3, even though the transformed problem cannot be integrated by SIN. For 
example, : 

| tea is transformed to [stn vay after substituting yze* 
in stage 2. [ein dy cannot be integrated by SIN. Thus, SIN concludes 
that sin(e")dx is not integrable by it and will not pass it to stage 3. 

In strictly enforcing such a decision we are depending upon the 
methods to employ tight progress requirements. If. the progress require- 
ments are made too tight, then few problems would be integrated by the 
methods of SIN's second stage. If, however, they are made too loose, 
then the methods of stage 2 would verify the hypothesis that they are 
applicable in problems in which they, in fact, are not appropriate, and 
thus SIN would fail to solve these problems. The experiments with SIN 
which are described in Appendices C, D, and E indicate the degree to 
which we succeeded in finding good progress requirements. We wish to 
point out that once such a discipline is successfully imposed on the 
methods, one is in a position to relax the requirement against backtracking, 
and thereby obtain somewhat greater power. We have not yet done so in 
SIN's second stage. 

SAINT, in contrast to SIN's stages 1 and 2, will allow a problem to 
generate more than one subproblem. However, only one of the subproblems 
generated from any given problem must be solved in order to integrate the 


given problem. In general, the subproblems generated by SAINT during the 
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course of solution will form a tree structure. Figure 4 is a simplified 


description of the flow of control and subproblems in SAINT. 


Figure 4 - Simplified flow of 
control (single arrow) and sub- 
problems (double arrow) in SAINT 


If a problem in SAINT generates more than one subproblem, the node 
in the tree corresponding to it is considered to be an OR node. Thus, 
only one of the subproblema must be solved. If the prebles is a sum, 

a similar complication to the one in SIN its made. The node generated 
for such a problem is called an AND node. Each of the terms in the 


sum becomes a subproblem, and must be integrated. AND nodes are indi- 
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cated by an arc across the branches from that node. Thus, in general, 


a goal tree in SAINT has the form of Figure 5. 


Figure 5 - A Subproblem Tree in 
SAINT when sums are present among 
the subproblems 


All subproblems in SAINT are given to IMSLN. This includes the 
original problem and this fact is not shown in Figure 4. IMSLN thus 
acts like SIN's first stage. IMSIN has its own methods of solution. 

If it fails to solve the subproblem or some simple transformation of it, 
the subproblem will be put on the subproblem tree. 

The routine LOOP (see Figure 4) has access to a list of subproblems 
to be tried called PLH. This list is ordered so that the first member 
of the list represents a subproblem which has the lowest depth of nested 
operators (e.g., PLUS, TIMES, COS) in the internal representation of the 


problem. LOOP will select the first subproblem on the list. It will 
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then ask each of the methods of SAINT called the heuristic transformations 


by Slagle to determine if they can transform the subproblem. These methods 
will be guided by information about the subproblem called the character of 
the subproblem. The character contains information such as whether the 
subproblem represents a rational function, an elementary function of ex- 
ponentials or trigonemetric functions, etc. This information is used to 
limit the number of heuristic transformations applicable to a problem. Yet 
even with the use of the character mechanism as many as 11 out of the 17 
heuristic transformations may be applied to a single subproblem. 

The flow of control and information in SIN is called hierarchical. 

In a hierarchical organization, subproblems which are communicated between 
one routine and a second are private to these routines and are not know 
to the rest of the program. SAINT's organization can be called data base 
oriented. In such an organization the’ goal is to transform the data base 
(i.e., the goal tree in SAINT) to a desired state. In SAINT the desired 
state is a tree which has a path from the top node (the original problem) 
to a bottom node in which each node represents a solved problem. Ina 
data base oriented organization control is relinquished to routines which 
manipulate the data base. In SAINT, all the heuristic transformations 
relinquish control to the IMSLN program. 

SAINT's data base oriented approach allows and, in fact, may be said 
to encourage the program to backtrack, that is to leave one path of the 
tree and start on another. SIN's approach is to discourage backtracks 
at the first two stages. Backtracking is allowed in stage 3. However, 


in stage 3 backtracking is only of a limited nature. 
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Conventions _ 

In describing SIN we shall use the usual convention that the 
variable of integration is x. SIN is actually a function of two argu- 
ments. The first is the expression to be integrated and the second is 
the variable of integration. 

Below when we use the phrase "is a constant" we shall mean that 
the expression contains no occurrence of the variable of integration. 
Thus, ain’x + cos“x is not a constant when x is the variable of inte- 
gration. 

We shall not concern ourselves here with difficulties which may 
arise due to the unsolvability of the constant or matching problem for 
the elementary functions. For a discussion of these difficulties see 
Appendix B. 

By the elementary expressions of x we mean the set of expressions 
composed of 

1) constants, 2) x, 3). trigonometric functions of x (e.g., sin(x), 
cos(x)), 4) logarithmic and arctrigonometric functions of x (e.g., 
log xs arcsin x), and closed under the operations of addition, multi- 
plication, exponentiation, and substitution. 

By an elementary expression in £(x) fapiceuiates elem(£(x)), we 
mean an expression obtained in the manner above, but where f(x) replaces 
x in the definition. Thus, for example, (e* + 1)62" + a is an elemen- 
tary expression. of e*. The expression xe, on the other hand, is an 
elementary expression. of x, but not of e*. 


By a problem integrable in finite termg we mean a problem whose 


integral is representable by an elementary expression. 
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First Stage of SIN 


The first stage of SIN uses the following three methods: 

Method I If the integrand is a sum, each term is integrated separately 
by calling SIN iteratively and the results are added. 

Method II If the integrand is of the form 
[Zu, (x)]", where n is a small positive integer, expand the 
expression and apply Method I. 

Method III If the Derivative-divides routine is applicable, return its 
results. 

The first two transformations are made so that the rest of the 
program can assume that the integrand is a product (though possibly a 
trivial product as in x or in e*), The third method in this stage is 
the method which has led us to call this stage the stage that solves 
simple problems. 

We shall now describe these methods in some detail. 

I) Method I is an oft used method in practice. Using this method 
one avoids the difficulty of integrating dissimilar expressions such as 
sin x + er. Integral tables, it will be noted, shun entries which are 
sums. ieecvae this is not a safe rule to follow, in general. For 
example, let us consider Sex” + ptek you: Neither of the terms in 
this sum is completely integrable in terms of elementary functions. 
However, the sum is the derivative of xe . Hence, breaking up the terms 
in the sum and integrating them separately can disguise the integrability 
of the sum. This difficulty was known throughout the course of this re- 


* 
search, and a heuristic for overcoming it in some cases was designed. 


The heuristic that has been considered is of the following nature. 
Suppose we have a product of terms of the form £(x)g(x)h(x)- The deri- 
vative is frequently of the form £' (x)g(x)h(x)+£(x)g' (x)h(x)+£(x)g(x)h (x). 


Thus if one finds an integrand which is a sum such that two terms in the 


RE igre ree Se An aS SE) ae, Ll gh rae, ph ee ne age a ee cee Re a a ee he ORL a Mee 
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However, no extension to this method has as yet been implemented. 
Slagle considered this method to be sufficiently safe so that he 
invariably followed it also. 


Example 
ee x + e*)dx = Join x dx + Je® dx 


II). The reason for method II can be seen by considering the problem 
ie + e*) "ax. SIN has no machinery which deals with this problem in its 
present form. However, if the problem is given as Scat 2xe* + e7*) dx, 
then the problem is easily integrated. 


Example 
ie + e*) “ix = Jee? + 2xe™ + e-*)ax 


III) The Derivative-divides method is the heart of this stage in SIN. 

As we shall see many problems are integrated by it quite quickly. The 
inclusion of this method at this place in the program has an important 
methodological basis. It is presumed that in many computer problem 
solving systems there are methods of solution which solve most commonly 
occurring problems relatively quickly. If these methods are employed 
first by a problem solving system then many problems will be dispensed 
with in short order. Thus, the problem solving system will be able to 
-afford.to utilize expensive machinery in its later stages. 

The Derivative-divides routine checks to see if the problem is of 
the form: 
‘sum are related by having two factors in each of the forms £'g and fg', 


respectively, and with the rest of the factors identical, then one can 
guess the original product easily. 
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ie op (u(x) )u! (x)dx, 
where c is a constant, u(x) is an elementary expression in x, u'(x) is 
its derivative, and op is an elementary operator. Op may be one of the 
following operators: a) identity b) sin c) cos d) tan e) cot £f) sec 
g) csc h) arsin i) artan j) arsec k) log. Three more possibilities 
for op involve the exponentiation operation. These presume that the ex- 
ponential function has only one nonconstant argument. Thus, we get the 
cases 1) ic m) ae* d #1, n) gis) | where d is a constant. The 
final case is when the integrand is a constant and then u(x) is trivial. 
In that case the integral is simply cx. 

The method of solution, once the problem has been determined to 
posses the form above, is to look up op in a table and substitute u(x) 
for each occurrence of x in the expression given in the table.” In 
other words, the method performs an implicit substitution y = u(x), and 
obtains the integral |c op(y)dy by a table look up. 

Using this method the following examples can be integrated. 


1) eas x cos x dx = Ssin’x, op = identity, u(x) = sin(x), u'(x) = cos(x), 


ec #1 
2 2 
x lL 
2) Jxe dx = 3 > Op = ques) | u(x) = x", u'(x) = 2x, c= 3 
3) Jw1l + x? dx = ne + 4273/2 | op = td u(x) = 1+ x’, u'(x) = 2x, 
aes 
4) e* x -1 x x 
i+ eX dx = log(l te”), op =u(x) -, u(x) =lLte', u'(x) =e 
ec =l 


See Appendix A for a description of integral table look-up methods. 
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5) {3/2 = 25/2, op = u(x)?, u(x) ®x, u'(x) =1, cl 


A few more examples will indicate certain aspects of this method. 


6) Jcos(2x + 3)dx = Fein(2x +3), op =cos, u(x) = 2x + 3, u'(x) = 2, 
es 
nee 


The Derivative-divides method performs an implicit linear substi- 
tution in this case. SAINT would have performed an explicit linear 
substitution and would have required two calls to IMSLN to solve the 
problem. 

7) Joyze2%ax = yze2™, op wn gh) | u(x) = 2x, u'(x) = 2, c ® yz 

This method handles constants easily. Constants can be generated 
or can be present in the integrand. SAINT would have removed the. con- 
stants explicitly. 

8) cos“(e*)sin(e*)e*dx = ~Feos*(e*), op = u(x)", u(x) = cos(e*) | 
c so} 

This example demonstrates that the integral may be fairly complex 
and the method will still apply. 

One of the experiments which was made with SIN was to attempt the 
86 problems attempted by SAINT (see Appendix C). Interestingly enough» 
this method of Derivative-divides was able to solve fully 45 out of 86 
problems. The average time on the 7094 was 0.6 seconds. 

It is hoped that the above examples convincingly demonstrate the 
usefulness of this method at an early stage in an integration program. 
The method is to be recommended for those who desire an integration 
capability, but who are unable or unwilling to avail themselves of a 
more general program. 


As was mentioned earlier, SAINT's IMSLN routine performs some 
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functions which are similar to SIN's first stage. IMSLN employs a 

table similar to that in the Derivative-divides routine but somewhat 
larger. It also performs eight transformations called algorithmic 
transfoxrmationg by Slagle. These transformations are attempted one at 
atime. If one of them is successful the transformed problem is used 

and the original problem is not considered again. Two of these trans- 
formations are the same as method I and II in this stage of SIN. The 
others factor a constant or a negation operator from the integral; 

employ half angle identities; make a linear substitution; and perform 
certain simplifications on the integrand. As has been pointed out 

above, IMSLN also tends to the tree of subproblems and can determine 

if the original problem has been solved. IMSLN doesn't actually solve 
many problems so much as it is able to transform a great number of 
problems into a form which is more easily solved by the rest of SAINT. 

It would appear that SIN's Derivative-divides. method solves more problems 
immediately than does IMSLN. SAINT's Derivative-divides heuristic trans- 
formation, which is quite powerful, is not applied to a problem until 


much later in the course of the solution, 


The Second Stage of SIN 
If a problem fails to be solved by SIN's first stage, then it is 


determined whether one of eleven additional methods is applicable to 

it. In order to determine which method is to be applied clues are ob- 
tained from the expression. We have called the technique by which these 
clues are used hypothesis formation (see Chapter 2). The routine that 
obtains these clues and conducts the formation of an hypothesis is called 


FORM. Associated with most of the methods are patterns in SCHATCHEN 
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which serve to differentiate the problems which are solvable by each 
method from those solvable by other methods. It turns out that few 
problems have more than one method applicable to them. In the cases 
where a conflict does exist (e.g., in solving problems with algebraic 
integrands) the actual method chosen appears to have little effect on 
the cost of obtaining a solution, 

In this stage of SIN, a single method (Method 6) handles problems 
which involve trigonometric expressions. When FORM sees a subexpres- 
sion of an integrand which is a trigonometric function of a linear 
argument in the variable of integration, this subexpression will act 
as a clue, and FORM will call Method 6 to validate the hypothesis that 
a substitution can be made for the trigonometric functions. If Method 6 
decides that such a substitution is not applicable (e.g., fein x e*dx), 
then it will return the value NIL (FALSE). In such a case, FORM might 
entertain another hypothesis but since there are none for trigonometric 
functions, FORM will also return the value NIL. If Method 6 finds that 
a transformation is applicable, it will hand SIN the transformed pro- 
blem. The value of SIN, with a proper substitution to account for the 
transformation that was made will be returned as the value of Method 6 
and of FORM. 

Examples of problems integrated by this stage of SIN: 


(It is probable that none of these could be integrated by SAINT.) 
Va? + Bsin2x 
1) sin x om 


2 
2) fa + 2x*)e*™ dx 
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2x 
3) ee alee d 
A+ tel® ™ 


4) ie vx +1 dx 


5) fb? Ge + 1)>/*ax 
6) Je dx 


Below we describe each of. the methods used in this stage. Each 
description contains the clue which FORM uses to determine whether the 
method might be applicable. A more extended description of the manner 
in which FORM operates will then follow. 

Method 1) Elementary function of exponentials. 

This method is applicable whenever the integrand has the form of 


bx, +c 


an elementary function of ay » where the a b,> and c, are con- 


i? 
stants. 


bx 
Clue - a subexpression of form a rs a, b, c are constants. 


Examples - 
x 
e I 1 ax 
fos dx becomes T+ By2 dx, y=e 
f 2x i x 
Ad perx dx becomes 1a by dy, ye 
xtl 
Je dx becomes f = ; dy, y= e* and ert weer 


10 
1 
Jio®e*ax becomes 5 nace dy, y= e* 
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bx, +c, (b, xtc, )log ay 
Method - ay is transformed into a) al in order 
to convert all bases to a common base a)- Here a) is the first base 


encountered in the integrand. 


bxt+c 


a, where c # 0 is converted to afa.™ 


1° This facilitates the 
transformation to be made. 

The substitution y* ar is made. Thus, each ar™ is replaced by 
y” and the resulting expression is divided by y log, al. 
Notes - What is controversial about this method is that in converts all 
bases to a single base which in not necessarily e. This may lead to 
the introduction of Gnuecesearily clumsy constants (e.g., log.3). 

SAINI's method in this case was somewhat different. SAINT did 
not handle different bases, nor all cases where constants (i.e., c,) 
were present in the exponent. It did, though, find the greatest common 
divisor of the b,> k, say, and made the substitution y = gd In SIN 
this will be handled by algorithm 2 which will make. the substitution 
zs Bs after y = ay is made by the current method. The method that per- 
forms the substitution z = a was not present in SAINT although it was 
suggested as an extension 

Method 2) Substitution for gn integral power. 

This method is applicable whenever the integrand is of the form 


x, Elem(x*‘), where c, k, are integers and where 


i 


k = ged(fe +1, kj, k,,- + -}),k #1 


2 
Glue - Instead of obtaining a clue which determines whether this 

transformation is applicable, FORM obtains a clue which determines 

whether this transformation is not possible. FORM will note that this 


transformation is not applicable when it sees a subexpression of the 
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form gos or sin(x). If none of the other methods is applicable, and 


no such clue has been found, this transformation will be called. 


Examples - 
: 2 
2 sin(x’)dx becomes {a sin y dy, y = x2 
x! 1 4 
ae Oe, becomes (2 1. dy, y =x 
x +1 y +1 


k 
Method - Substitute y = x 


Notes ~- This method was suggested but not implemented by Slagle 
who embedded it in a larger method which was implemented in SIN in two 
separate methods (2 and 3). 

This method is currently restricted to integer exponents. It 
should be extended to handle exponents such as 3a, 2a in 


[38 ste de 


Method 3) Substitution for a rational root of a linear fraction of x. 
This method is applicable when the integrand is of the form 


ax + b + (ax + b\k 
¥ 


Bien(x. (ee ae Saray Deo a te ed) 


where the n, and m, are relatively prime integers with some |m, | #1, 
and with a, b, c, d constants and ad - be # 0. 


Clue - A subexpression of the form 


wn 
ax +b 
(xt a, b, c, d constants; n, m, relatively prime integers, lanl #1 


Examples - 
ee Vx dx becomes fey cos y dy; y = Vx 


PE LOL ONE OO EN ON OO LITE a OO age PERNT ES ene Oe ew I eT ED neg eee OL. aT 
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i vx +1 dx becomes facy? - L)y7ay, y2vx+1 


The above two problems were attempted and not solved by SAINT. 


i les 1 _ 1/6 
[an ; 1/3 dx becomes by y-y dy, yx 


a, 
+1 f 2 _ & +i 
ESS eacone Gyr yt y * Vix +3 


Method - Let k = least common multiple of the m 


(ax + p\i/« 
cx +d 


1° 
Substitute y = 
Notes - The restriction ad - be # 0 assures that the substitution 
is non-trivial. If ad - be = 0, then & = 0. 
Slagle suggested methods 2 and 3 as a single method. Considering 
them as two separate methods facilitated the coding. This method is 
an extension of Slagle's suggestion since it covers linear functions, 


Even this algorithm should be split into two parts. One would 


n 
handle the case restricted to (ax + b) fn the other the more general 


fax + pyn/m 
Eage \ex + a/ 


Much of the time only the former is needed, but the machinery for 


handling the latter, which is more expensive, is employed. 

A weakness of this routine is its inability to deal with variable 
exponents. These would usually result in the generation of a reduction 
formula as opposed to an integral. The ataat advantage of an integral 
table over SIN currently is the presence of the reduction formulas. 


The Edge heuristic (See Chapter 5) can generate some reduction formulas, 
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but not many at present. (Or course, an instance of a variable exponent 
should result in a solution in SIN!) 

Method 4) Binomial - Chebyschev 

This method is applicable whenever the integrand is not a rational 
function and possesses the form 


Ax" (c, +c xtyP where A, c,, ¢ 


2 1 2 are constants, p, q, r are ratio- 


nal numbers and c)©4P # 0. 
Clue - A subexpression which is a nonintegral power of a rational 
function. This is followed in FORM by a match of the integrand and the 


form above. 


Examples 


Ita Pe ae ener es pes as 
y (lity) 
aoe? 
1/2 5/2 i ara | 
ie i qd +x) dx becomes Ge aye dy, y= Gree: 


Method - Binomial conversion to Chebyschev form (substitute y = x7), 


rt+l1 
- + 
P> rT, g 


Make the first applicable transformation 


Thus AtA/q, and r -1 


2 


i > 
a) r, integer, r, 0 


Substitute 2 =c, tc, y 


1 2 
b) ty integer, rr a rational number with denominator qd, 
Substitute z = yifdl 
c) uy integer, a < 0, Ty rational number with denominator d, 


1 
Substitute z = (cy + coy) Ido 
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d) r, + tT) is an integer 


Substitute z = (S122) 


Otherwise, return notice of failure to integrate problem. 


1/dy 


Notes - This method was also suggested but not implemented by Slagle. 
It has the advantage of being a decision procedure. That is, if an inte- 
grand has the form given above, then either the method yields the integral 
' or the problem cannot be integrated in finite terms. This was proved by 
Chebyschev (see Ritt [ 54 ], p. 27). 

The argument used is roughly as follows: If Tyo Fos OF Ty + tT, is an 
integer, then the substitutions above result in rational functions and thus 
can be integrated. Otherwise we know from Abel's Theorem (see Chapter 5) 
that the integral, if it is expressible in finite terms, is a sum of an 
algebraic function and logarithmic terms. The residue of a Chebyschev 
function is everywhere 0. Hence the integral cannot contain logarithmic 
terms. Further analysis shows that the assumption that the integral is 
algebraic leads to a contradiction. 

In this case also the integral tables contain many entries which 
are reduction formulas for the cases when p, q, r are parameters. Some 
such capability should be present in SIN also... 

Method 5) Arctrigonometri bstitutio 

This method is applicable whenever the integral is of the form 
R(x, kx? + bx + a) where a, b, c are constants and R is a rational 
function of its arguments. 

Clue - A subexpression of the form 


(exe + bx + anal? | where n is an odd integer. 
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Examples 
at sin’ 

J— as dx becomes join dz, y @ arcsin x ! 

(1 - x) cos z 

IEE 1 _ (a2 + B2)cos 2 __By 

2 dy becomes B —A FB 508 e dz, 2z # arcsin 
l-y a - 2 ain”) Mea ge 

Method 


First eliminate the middle term of the quadratic by completing the 


square 
yurxt B, 
yielding the integrand in the form 
ny - 2%, cy ta-2) 
Let A=a- ot 
C=c 


If C>0, A> O, substitute z = arctan fey 


If Cy Oo, A <0, substitute z = arcein | & y 


If C>0, A =0, replace the quadratic by /C y 
If C < 0, A> 0, substitute z = arcsec Jey 

If A and C are both numbers, then the signs are determined trivially. 
If A or C are parameters, then the user will be asked whether they are 
positive, negative, or zero through an appropriate message at the console. 
For example if the value of A is e, a message would read 

IS e POSITIVE 

An answer of "yes" is expeated if e is in fact positive. However, the 


program can frequently determine whether A or C are positive. This is 


AS ee eee nee ee ees Se en le Fe ay Te a eT tie ae eae Ee ee ne ee ES TY a SS GR ee ge le. Bee 8 ggg a Te pe 
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done by assuming that all parameters are real valued and by using the 
fact that sums of squares of real numbers are positive. Thus. 
2a + 3e" +5 
is determined to be positive, shavezs 
-d? - 2(e + £)” 

is determined to be negative. A single SCHATCHEN rule is used in making 
this determination. 
Notes 

In cases where the coefficients are parameters, it is possible to 
run the program several times and answer questions differently each time. 

SAINT had two transformations which performed the function of this 
method. One method eliminated the middle term from all quadratics, another 
made the arctrigonometric substitutions in all quadratics with missing 
middle terms. The arctrigonometric substitutions are normally made for 
roots of quadratics as we have done and not in all quadratics as SAINT 
attempted to do. SAINT also implicitly required that the coefficients 
in the quadratic be numbers. The kind of interaction between the user 
and the program which is required when one allows nonnumerical coefficients 
became practical when time-sharing systems were introduced. 

Method 6) Elementary function of trigonometric functions. 

This method is applicable when the integrand is an elementary 
function of the trigonometric functions applied to linear argument in 
the variable of integration. 


Clue - TRIG(a + bx) where TRIG ¢ {sin, cos, sec, tan, cot, cse} 


83 


Examples 
ene 1 1 
1) sin x dx becomes G ~ 760s 2x)dx 


2) [vw + Besin2x 


sin x 


JK + B2(1 - y2) 
2 dy, y = cos x 


l-y 


dx becomes 


L J e2 1 
3) I rare dx becomes dy, y = tan os 


Method 

I) In problems where the arguments of the trigonometric functions 
are not the same throughout the integrand, the following cases are 
examined. 


-cos(m - n) hie cos(m + n)x 


a) Va mx cos n x dx = 


2(m - n) 2(m + n) 
b) lees mx sin n x dx = sin(m - n)x _ sin(m + n)x 
2(m - n) 2(m + n) 


sin(m - n)x sin(m + n)x 
c leds mx cos n x dx = sin(a = n)x + i, constants m -n 
) x o(a =n) iG +n) m, 0, sta # 


Otherwise, the method returns notice of failure to integrate the problem. 
II) If the arguments are the same but are not identically x, a 
linear substitution y = a + bx is performed and the procedure continues 
with the revised problem. 
IIL) If the problem is of the form 


Vwiati Gidea Gays m, n integers 


\a lo. n-m 

a) men, transform to J(Gsin 2y)"G + 008 2y) 2 dy 
1 fod, Sot at 

b) m2n, transform to Jasin 2y) a. 2eos 2y) 2 dy 


IV) All trigonometric functions are transformed into sines and 


sin _y 


) in order to test if the resulting expres- 
cos y 


cosines (e.g., tan y ? 


sion is of the form a or b. 
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a) Jatn2™*1 (yymiem(sin2(y) ,cos(y) ay. 
In this case substitute z = cos(y) 
b) [cos2"*1 (yy B1em(cos”(y) ,ein(y) )dy 


In this case substitute z = sin(y). 
V) All trigonometric functions are transformed into secants and 
tangents in order to test whether the resulting expression is of the 


form: 
| wiea(esnty) jase" Giddy 


In this case substitute z = tan(y). 


in 


ae is made. 
+ cos y 


VI) Finally, the substitution z = tansy = 


Notes - In the case where the integrand is a rational function 


of trigonometric functions of x all the problems can be reduced to 
rational functions. The choice of the transformation governs the * 
simplicity of the resulting rational function and the final answer. 
The transformation in step VI above which is always applicable in these 
situations frequently leads to a great deal of work and to complex 
results. Fortunately, a number of simpler transformations such as 
those of steps III, IV, and V are easily recognized and are usually 
applicable. 

SAINT included all of the transformations given above, but they 
were embedded in different places in the program. I is included in 


the integral table. II is an algorithmic transformation, as is step III. 
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IV and V are three separate heuristic transformations. V is yet another 
heuristic transformation. The initial stage in steps IV and V is per- 
formed by still another method. This organization of the methods appli- 
cable to trigonometric functions led to the generation of extraneous 
subproblems since the heuristic transformations were disjoint and were 
not aware of each others actions, nor, in fact, of their own actions. 


For example, the method which performs the preliminary transformation 


. sin rere : 

in steps IV and V (e.g., tan x * Boe =) must be inhibited from performing 
: : é tan 

the opposite transformation later (e.g., sin % ‘666 . 


More work is necessary in this area in handling arguments to 
trigonometric functions which are linear, but different (e.g., eee 
Some programs along this line have been designed by Edmund Berkeley, but 
they have not been fully implemented. 

Method 7 Rational function times an exponential 

This method is applicable whenever the integrand is of the form 


P(x) 


R(x)e » where R(x) is a rational function in x and P(x) is a polynomial 


in x. 


P(x) 


Clue - A subexpression of the form e » where P is a polynomial 
in x. If P(x) is linear in x, this method will be attempted if method 
l is not applicable. 

Examples 


x x 
1. lee dx = xe -e 


a 
" ve + 12 © FR 4 
2 
36 la + ap as dx = xe™ 
2 
a. |e® 


e dx: not integrable 
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5. je dx: not integrable 

Method - This method once again is a decision procedure. That 
is, the method can tell whether a problem can be integrated in finite 
terms or not. The method is an. improvement of the decision procedure 
in Ritt [54 ](p. 48) which handled the case by solving a system of 
linear equations. The procedure is an application of the Liouville 
theory for integration about which more will be found in Chapter 5. 
This procedure is similar in flavor to Risch's [ 53] recent theoretical 
treatment of results in the Liouville theory. 


my. 
Cx + 8, (x) 


Let R(x) = Qtx) 


where S)> Q are polynomials 


s, is a polynomial of degree <m 


Cc, is a constant, C, #0. 


1? 


We know from the Liouville theory that the integral (if any) will 


P(x) 


be a multiple of e (See Ritt [54 ], page 47.) 


Suppose the integral is represented by 
(a, (x) + b, (x) oP ©) » then 


my 
Cix + S, (x) 


P'(x)a, tai + P'(x)b, + bi = R(x) = 


1 Q(x) 
my 
C,x 
Let a, (x) - PQ” then 
my - 1 Oye Qt! Oyxu ten 
ig ede "TPQ 7 ey? 
1 Q 
m - 1 M1 pr my 
and m,C)x Cx P Cx Q 


Ss Ot eer st Se 
' 1 _ pl Ss gisgook P' Pp P' 
P db; + db, R(x) - P ay 7 ay Q 


The numerator of P'b, + by is a polynomial T, (x), say, and a rational 
$ ml 
function remainder, U, (x), say. Let the leading term of T, (x) be c,x . and 
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the rest of T, (x) be S,(x)- Now continue the process indicated above 
until some qT, (I> say) is 0. This is guaranteed to occur since the 


is decreasing. If at that time the corresponding U 
P(x) 


degree of the Tt 


(i.e., UD) is also 0, then the expression R(x)e 
P(x) 


i 
is integrable and 


n 
the integral is 2 aime fu, is not 0, then the problem is 


not integrable in finite terms. 
n 


n 2 
Note that if U_ = 0, then R(x) - P' Za, - Za! =0. 
n i=] 1 i=l 1 


n 
Let a = Rr hood then we obtain the relation 
1L= 


P'ata' =R 
P'ae? tate = Re? 
(aer)! = Re? 
aee = [rePax 
For the converse, we refer to Ritt. Also, note the discussion in 


Chapter 5. 


Notes - SAINT was able to solve the first two of the examples 
above. Both were solved using the Integration-by-parts method of 
SAINT. 

2 

SAINT was unable to integrate le dx because it found that no trans- 
formations were applicable to the problem after approximately one minute 
of computation. 

The fact that SAINT was unable to integrate this problem does not 
necessarily mean that the problem is not integrable in finite terms. This 


statement is also true of SIN, in general. This is due to the fail-safe 


nature of the programs. When a fail-safe integration program results in 
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an integral then we know that the problem is integrable. When such a 
program does not yield an integral then one still does not know whether 
the problem can be integrated or not. A semi-decision procedure for 
integration would, in finite time, result in an integral or in the state- 
ment that the problem cannot be integrated in finite terms. Richardson's 
result (see Appendix B) shows that for the integration problem as he 
defines it, no decision procedure exists. Yet decision procedures exist 
for many interesting subcases and especially when one avoids considering 
the matching problems that Richardson shows are inherent in his charac~ 
terization of the elementary functions. SIN embodies some decision pro~ 
cedures. Future programs are likely to contain more (see Chapter 5). 
One must be quite careful about the computational methods involved in 
order to avoid the explosion which is apparently inherent in many decision 
procedures in algebraic manipulation (see Moses[ 42 ]). We would prefer 
to see expensive decision methods to be attempted as a last resort, such 
as stage 3 in SIN. A final consideration regarding methods for integration 
is that they should not be too radical or else the result will become less 
meaningful to the human user. 

This method was implemented using the rational function package of 
MATHLAB [ 36 ]. SIN communicates with the rational function package by 
a process called chaining. More will be said about chaining when we dis- 
cuss the integration of rational functions. 

d 8 tional functions 
This method is applicable whenever the integrand is a rational function. 


Clue - FORM generates no local clue for rational functions. The 


applicability of this method is determined separately. Sometimes this 
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method is called directly by other methods (e.g., methods 2 and 4). 


- Examples 


—— dy = -+ 1 i 1 (2x - 1) 
. & aa dx slog, (x +1) + 61 °8, (x? x + 1) +73 arctan \“"77—, 


2. a oo “108 (x +1) + Glog, (x +1) + 
x - 

: 5; arctan (282 =1).5 iIe (2 +x4+1) - arctan(2* vt 1) 

Se Fe Set 


aL 


ToSe (x? -x+1)- 


1 “1 1 
3. SoC a log, (x + A) Ho log, (x - A) 
(B? - A2)x2 - 0%? 4.4% ape - a> 2aB’ - A> 


Method - This method was programmed for the MATHLAB system by Manove 
and Bloom under the direction of Engelman of the MITRE Corporation. The 
integration procedure which is used is described in Hardy [ 25]. The 
polynomial factorization routine used in this program essentially follows 
Kronecker's method as described in Van der Waerden [ 65 J], p. 77-78. This 
program is also written in LISP and is itself described in "Rational Func- 
tions in MATHLAB," by Manove, Bloom and Engelman [ 36 ]. 

Notes - The power of this method makes the coding of the rest of 
SIN a great deal simpler. SAINT did not have a4 powerful rational function 
integration program (it could integrate polynomials and ratios of poly- 
nomials with linear and quadratic factors) and it suffered thereby; much 
of the trial and error in some problems for SAINT can be attributed to 
its inability to integrate certain rational functions which arose as 
subproblems. Some of the extensions which were made to SAINT (e.g., 
methods 2 and 4) could not have been made unless a rational function 
program was present. Thus, the second stage of SIN lets this routine 
clean up the details such as rationalization of denominators which could 


be ignored in making the transformations. 
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Slagle realized that the unavailability of a rational function 
integration program was a basic defect in SAINT. However his proposal 
for the manner in which such a routine should be written was not the 
best. He proposed solving linear equations to obtain a partial faction 
expansion of the rational function. The method in MATHLAB is superior 
computationally. 

As was mentioned earlier the experimental work (e.g., debugging 
and testing) was done using Project MAC's time sharing system CTSS. One 
valuable feature of this system is the power to use programs written by 
others. In our case it was valuable to have access to the rational func- 
tion package of the MATHLAB system. To be sure, in conventional "batch" 
processing one can employ large packages designed by others by using 
intermediate tapes. In CTSS one can conveniently make use of a program 
concurrently under development by another group, providing one is pre- 
pared to spend some time for the process involved.” 

The rational function program which SIN uses is available in CISS 
as FULMAN SAVED. It is a separate core image from SIN and is called 
using the chaining process given below. 

a) SIN writes the problem to be integrated on file MANOVE LISP. 


b) SIN saves itself as MOSES SAVED. 


The widespread availability of time sharing consoles has allowed SIN 
to be used by several people other than the author. "Bugs" in the pro- 
gram.have been pointed out by Michael Levin of Information International, 
Inc., Carl Hewitt and Peter Samson of Project MAC, md Russel Kirsch of 
the National Bureau of Standards. We would hereby like to express our 
appreciation of their efforts. 
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c) SIN directs CTSS to execute FULMAN SAVED. 

d) FUIMAN reads MANOVE LISP. 

e) FUIMAN generates a solution to the problem. 

£) FULMAN writes the solution on file MANOVE ANS. 

g) FUIMAN directs CTSS to resume MOSES SAVED. 

h) MOSES (i.e., SIN) reads MANOVE ANS. 

Experimentally the minimum time for this process has been determined 
to be about 4.5 seconds of machine time. Most of the time is spent in 
steps c and g in which 32k programs are loaded into core. 

There are, at present, certain differences in the internal repre- 
sentation used in SIN and FULMAN. These differences are eliminated, 
whenever possible, by two interface routines present in SIN. The dif- 
ferences consist of the following: 

a) log has two arguments in SIN, one in FULMAN. 

b) PLUS, TIMES have variable number or arguments in SIN and only 
two in FULMAN. 

c) No floating point numbers are allowed in FULMAN. Whenever 
possible these are converted to rational numbers (i.e., (a°b) where a;b 


are integers). Otherwise an error indication is given in SIN. 


Method 9) Rational function times a log or arctrigonometric function 


with a rational argument. 
This method is applicable whenever the integrand is of the form 


R(x)F(S(x)) where F is log, arcsin, or arctan 
R(x) and S(x) are rational functions 


and where Irexax is also rational. 
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Clue - F(S(x)) where F is log, arcsin or arctan and S(x) is a 


rational function. 


Examples 
2 
1) jx log x dx becomes Zlog x - fz dx 
e 2 e 2 3 
dye Je areatn ede be eae aif ae 
) jx arcsin x comes 5 sin x 3V/L- ne 
3) 2 1 log (x” + 2x) becomes —itog(x” + 2x) - f aI (2x 42) dx 
x +2x¢41 *, , = x + 2x 
Method - Let T(x) = are 
a) F = log 
c é 
Solution is T(x)log(S(x) - Jece SG) dx 
b) F = arctan . 
Solution is T(x)arctanS(x)- free 1 " S2(x) dx 
c) F = arcsin 
s' 
Solution is T(x)arcsinS(x)- Jece —S-@)__ dx 
v1 -. 87 (x) 


Notes - This routine handles three special cases of the method of 
Integration-by-parts. The utility of these special cases is that they 
direct the solution process quite clearly, whereas the more general sol- 
ution methods may make false starts or require more extended analysis. 

SAINT would have attempted to solve most of the problems that fall 
under this category with its Integration-by-parts method. If we presume 
that SIN had only the rational function capability of SAINI, then this 
method would allow SIN to be more powerful on these problems to which 
this method applies. This is due to the fact that SAINT could not tell 
how much effort it could reasonably expend on its Integration-by-parts 
method and it chose to spend less effort of it than would be required to 


integrate the third problem avove, for example. 
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Method 10) Rational function times an elementary function of 
loge (a + bx). 

This method is applicable whenever the integrand is of the form 
R(x)Elem(log,(a + bx)) where R(x) is a rational function and a, b, c, 
are constants. 

Clue - A subexpression of the form log (a + bx). This method is 


attempted if method 9 fails to be applicable. 


Examples 
log x 


e | y 
1) (log_x + 1)* dx becomes ei De eddy, y = log.* 
2) i — dx b fa dy, y = log x 
I log x becomes J7 > og, 


poe ieee ft y = 
3) ere dx becomes 7 dy, y=e 


Method - Substitute y = log (a + bx) 
results in 
[a(S =*)erem(yr©108,¢ dy 

Notes - This method is used to reduce the problem to the exponen- 
tial case where the powerful method 7 might be applicable. If method 7 
is not applicable, the transformed problem stands as much a chance of 
being integrated by SIN's current methods as did the original problem 
in the logarithmic form. 

Method 11) Expansion of the integrand. 

This method is applicable whenever the integrand can be expanded 
by distributing sums over products. 

Clue - This method is used whenever all of the previous methods 
have failed to be applicable. No clue for the applicability of this 


method is found by FORM. 
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Examples 
i x(cos x + sin x)dx becomes (x sin x + x cos x)dx 
+ ¢* “x 
J x - £ ax becomes { (xe ~ + 1)dx 
e 
J x(1 + e*) ax becomes (x + 2xe* + xe-*) dx 


Notes - SAINT had two heuristic transformations which together per- 
formed the job of this method. The first distributed nonconstant sums in 
products, the second expanded positive integer powers of nonconstant sums. 
In both cases, where Slagle considered the methods inappropriate, SIN 
would have already applied one of the previous methods and solved the 
problem. As a matter of fact, that is also true of the two problems 


for which he considered the methods to be appropriate. 


The Third Stage of SIN 


This stage, the last stage of SIN, is the appropriate place for 
methods of a rather general nature. 

Iwo methods which properly belong in this stage have been programmed. 
The first is the Integration-by-parts method. This method is used in| 
the experiment in Appendix C in which SIN was asked to solve the 86 problems 
attempted by SAINT. Only two of those problems (i.e., ie cos x dx and 
Vaee Vx dx) required this method. The second method is based on the Edge 
heuristic described in Chapter 5. A third method, a powerful Derivative- 
divides method, has not been implemented, but will be discussed here. 

In the long run it is expected that only one of these methods will 


be used here--that is the method based on the Edge heuristic or some vari- 
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ant of it. 


The Integration-by-Parts Method 


Examples - 


1) |x cos x dx becomes x sin x - lets x dx 
2) 1 2. ax become x, 2 i log x dx 
x log_x dx becomes 5~log,x 8. 


Method - Let Maxparts be twice the maximum of the value of a 
constant exponent of any nonconstant factor in the integrand. Thus 
Maxparts is 2 for x cos(x) and 4 for ees x. 

Consider any partition of the integrand into a product of nonconstant 
factors g and h, where H(x) = tn dx can be obtained by SIN without calling 
the Integration-by-parts method. 

Now consider elas We require that this integral be found by 
SIN by calling the Integration-by-parts method fewer than Maxparts times. 

If both integrals are obtained, the solution is 

les dx = gH - len dx. 

Notes - The crucial aspect of this method is embodied in the phrase 
"consider any partition." This method is thus willing to attempt several 
partitions of the integrand. It is thus searching for a solution, and 
searching very blindly indeed. 

In order to avoid searching too large a space, we require that H(x) 
must be found without using this method. SAINT, which also had an Inte- 
gration-by-parts method required that H(x) be found by IMSLN, which is 
a stronger restriction. Likewise the Maxparts device avoids an infinite 


search for the second integral. SAINT, which did not use such a device 
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appears vulnerable to difficulties such as in the problem [etx dx. 
Consider h = sin x, g =. Thus th dx = -cos x and fe" ‘H dx = 


COB xX 
[s00.x ay. 
x 


One subproblem generated by — dx is fata dx. This process 
x x 


can continue indefinitely unless measures are taken to curtail it. 


ain 5 


(Actually dx is not integrable in finite terms.) 


The Derivative-Divides Method 

The method of Integration-by-parts and the Derivative-divides method 
are the two general methods that a freshman calculus student is likely to 
learn. Let us recall that SIN's first stage employed a Derivative-divides 
method. However, that method is not as general as it might be. The 
Derivative-divides method attempts to determine whether the integrand can 
be put into the form g(u(x))u'(x). If this is the case then the substi- 
tution y = u(x) transforms the problem into leciay- In stage 1, g was 
required to be a single operator. However, in a more general method g 
would not be so limited and the following problems would be transformed 
by this method. (Let us note again that this method is not available in 
SIN at present.) 


1) Jjcos x(1 + sin’x)dx becomes Sa + y>)dy, y = sin x 
fh 1 i 1 
2) 1+ loge becomes T+ yz dy, y= log.y 
1 
= ae eee 
3) JVi-x? TF aresin’x %* Decomes JT 42 dy, y = arcein x 


The first two of these problems can be solved by SIN's second stage 
(in particular by methods 6 and 10). The third problem is one of the 


simplest examples of a problem which cannot be solved by SIN's first two 
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stages along with the Integration-by-parts method. However, the Edge 
heuristic will correctly guess the integral arctan(arcsin x). 

SAINT had a Derivative-divides method which was more powerful than 
SIN's. However, it suggested many bad transformations in some cases. 
The method essentially performed a search for a subexpression such that 
the number of factors in the quotient of the expression and the deriva- 
' tive of the subexpression was smaller than the number of factors in the 
original integrand. This is too strong a restriction sometimes. 

A Derivative-divides method was designed but was never implemented 
in SIN. 

The kind of analysis we considered was as follows: . Suppose the 
integrand is £(x) and a nonlinear subexpression of it is u(x), then if 
in. can be represented. as g(u(x)), the method would propose substituting 
y = u(x) and attempting leGvays We should, though, restrict the kind of 


i 


gin x. 
functions g that we would allow. For example, in ain’ & > Gon x 


we might 
wish to disallow the substitution y = cos x since it introduces the alge- 
braic term JT - into the denominator. If we make the conditions on 
the g's sufficiently restrictive (e.g., rational, algebraic) then the num- 
ber of Substitutions per problem that this method would propose would be 
small, and more significantly, each of the substitutions would be quite 


reasonable, 


Further Discussion of FORM 

We would like now to discuss some of the aspects related to the 
FORM routine in greater detail. We note that of the eleven methods 
available in stage 2 of SIN, eight possess local clues which immediately 


identify them to FORM. Method 2, substitution for an integer power, 
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possesses clues which allow FORM to reject the method in some cases. 
Methods 8 (Rational) and 11 (Expansion) do not currently possess .local 
clues in FORM and are sctempeed whenever FORM fails to find an applicable 
method. 

As may be recalled from Chapter 2, one of the advantages of hypo- 
thesis formation is that one can attempt to fit the problem to the method 
at hand. Since FORM is quite aware of the methods which are available to 
it, some such "fitting" could be attempted. This was done in the case of 
algebraic integrands. If an expression is of the form /R(x) where R is 
rational in x, then FORM will attempt to see if methods 3, 4, or 5 are 
applicable. If they are not, then this problem is going to cause some 
difficulty since it would appear that nothing else except stage 3 methods 
will be available to solve the problem. On the other hand it is possible 
that Methods 3, 4, or 5 are applicable, but that SCHATCHEN was unable to 


make the match. Two excuses can be made for SCHATCHEN in this event. One 


_ is that SCHATCHEN failed because the rational function R(x) was not ex- 


panded (e.g.,V1 + x(1 - x)), or that the rational function was not com- 


pletely rationalized Pine 4 +% = 1). FORM will thus determine if 
these two transformations are applicable to R (not the whole integrand). 
If they are, the problem is transformed to account for these changes and 
an attempt will be made to consider Methods 3, 4, and 5 again. Hypothesis 


formation is thus shown to be able to localize the difficulty in a problem. 


An Example of SIN's Performance 


We shall now consider in some detail how SIN performs on the problem 
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JAZ + B“sin-x 
[ A* + B“sin dx 


sin x 

This problem stretches the capabilities of SIN a good deal. Thus 
it can be used to indicate some of the strengths and particularly the 
weaknesses in the program as it now stands. Our description will con- 
centrate on the role that FORM plays in obtaining a solution. 

This problem is not a simple one. So it will pass to stage 2, where 
FORM will examine it. It turns out that FORM will arrive at the same 
hypothesis regardless of whether it examines the numerator or denominator 
first, but it will be more instructive to see how it operates on the numer- 
ator. First, FORM will note the square-root (more precisely, the exponent 
of 5). Since the base is not rational, which would indicate that Methods 
3, 4, or 5 might be applicable, the root is ignored and attention is 


focused on the base az + Bsin-x. In this sum, the constant term Na is 


encountered, and it yields no clue. The factor 3? is likewise a constant 
and yields no clue. This leaves the factor sin’x. The exponent of 2 is 
not interesting. However, the base sin(x) does yield a clue since it is 
a trigonometric function with a linear argument. FORM will, therefore, 
call Method 6 in order to test the hpyothesis that the expression is an 
elementary function of trigonometric functions of x. Method 6 determines 
that the hypothesis is valid and will call SIN after making the substitution 
y = cos x. The subproblem thus generated for SIN is 
vars a) a4 ay 
As before, this is not a simple problem and again FORM is called in 


order to generate an hypothesis. Interest will quickly focus on the square- 
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root in the numerator. Though the base is a rational function, none of 

the clues in FORM appear to apply. As described in the discussion above, 
FORM will attempt to determine whether an expansion of the base is possible. 
Expansion is, of course, possible and yields the base az + 3? - By? which 
matches the pattern used as a clue for Method 5. Method 5 is now called 


in order to determine whether an arctrigonometric substitution is possible 


in the revised problem which is 


- J/A2 + BZ - Beye 
|-e ie 
Lexy 
‘Method 5 first validates the hypothesis. In order to determine which 
substitution is appropriate, the routine decides that a2 + 3? is positive 


and that -p? is negative in the manner described in the discussion of 


this method above. Method 5 will now make the substitution 
et BE 
z = arcsin JAZ + Be 


which is followed by a call to SIN with the subproblem 
Js (a2 + Bodega ae 
. 1- = B ein?z : 

Once again the subproblem is not simple and FORM is asked to examine 

it. In the integrand only two factors are interesting, cos“2 and 

at + B22 1 
(1 - “pz Sin z) . Whichever FORM will be asked to examine first, 
the conclusion will be the same--a hypothesis that the integrand is an 
elementary function of trigonometric functions. 

Method 6 will verify the hypothesis that only trigonometric functions 
are present and will make the substitution w = tan(z). This will result 
in yet another call to SIN with the subproblem 

1 A2 + B2 


ae A? +B eis 


Ba+tw)? a “$B yy) 


1 HERR She re he 8 
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This is a rational function and FORM will find no clue in this case. 
Since FORM also did not find any clue to reject the possibility that 
Method 2 (substitution for an integer power) is applicable, that method 
is called next. Method 2 cannot make a substitution, but will call 
Method 8 (rational) to solve this problem. 

The rational function package will obtain this subproblem through 
the chaining process described above under Method 8. First, it will 
transform it by rationalization into a problem of the form given below 

-B(A? + 82 
22 


iw 
(L + w*) (pe? - atw 


) 


Then factorization and partial fraction decomposition will result in 


r 8B | a, Ne Ses | 
1 eae aos ne as | 


Straight forward integration will now yield the integral 
1 1 : 
-B arctan w + A log, (Aw -B)- A log, (Aw + B) 
This result will be sent back to SIN for the arduous backward sub- 
stitution: The first substitution is w = tan z.which yields 


2 
The second substitution is z = arcsin 77-33 y- This results in 


-Bz+ ta log (A tan z - B) - Ly log (A tan z + B) 
'e 2 B ¢ 


By 
B 1 A7AZ + Be 
- B arcsin y + 7A log, 27 B 
Vaz + BZ - JT Y 
Am +B 
, B 
rv arya | 
- FA log, Yar +3 +B 


7 2 
fl We R2 


mm ae 9 eR A 
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Cc 
Note that tan arcsin C is transformed into fT - C2 


The final substitution is y = cos x; this in turn yields 


= arcsin (Fay cos ) + 3A log, 


B cos x 
A fT ae 
- ZA log, at E +B 
~ ArH Bee 


This is the result that SIN returns for the original problem. SIN 
does not simplify its results by rationalizing them or by combining log- 
arithmic terms. This is certainly a drawback in this problem. Such 


simplifying transformations would result in the answer 


(A cos x +VA* + B sinex ) 
eA cos x - + B“ sin“x 


This result is to be compared with the answer in the table (Petit 


Srastae - Sune 1 
-B arcsin VAY + Be cos x - oA log 


Bois, p. 138). That result is 


1 Pe 2g os 


x 
B arccos ( Jae + B2 ) - A log, (A cot x +VA2 csc*x + B) 


In more familiar terms, the table's answer is 


B f . 
-B arcsin ( Je a4 Bl cos ie) - A log, (4 cos x iat * B2 sin2x | 


This answer differs by a constant from the answer derived by SIN. 


Although we can only guess at the method that the table's compiler 
used, we can arrive at some conclusions regarding weaknesses in SIN's 
method of solution. 

Let us consider the first subproblem after the modification made to 
it by FORM. 


[are 
y 


ley 
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Rewrite this as 
[- (a2 +B - By’) 3 
(Ll = y2) (ae ae 7 
The transformation made above is a standard one in dealing with 


algebraic integrands. The integral above, after division, becomes 


J@?- a ) we dy 
Multiplying through we obtain two subproblems which together are 
simpler to solve than the combined problem. SIN, by not bringing the 
square-root to the denominator, unnecessarily complicates the work of 
the rational function package. This is certainly one of its weaknesses 


in dealing with algebraic integrands. 


SAINT and SIN solutions of the same problem 
As a further comparison of SAINT and SIN, we shall indicate how 


both operate on the problem 
4 
x 
| ey dx 
This problem was chosen because it is discussed extensively in Slagle's 
thesis. 
In SIN, after determining that the problem is not simple, the factor 


acts as a clue in FORM and generates a call to Method 5 
which validates the hypothesis that an arctrigonometric substitution is 

possible. This method generates the subproblem 

Juste 
coaty 


after making the substitution y = arcsin x. 


Again, this is not a simple problem and this time sin(y) will act 
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as a clue for the hypothesis that only trigonometric functions are present. 


Method 6 validates this hypothesis and generates the subproblem 


after making the substitution z = tan y. 
This subproblem is rational and FORM finds no local clue. Method 2 
is called and is ineffective. Method 8 (rational) is called and the rational 
function package returns the expression 
3 


2 - 2 + arctan z 


3 
as the integral. 


Backward substitution yields 
- 3 
er ae -~tanyty 
and finally we obtain the integral 


2\- 3/2 2\-1/2 

Aa -_x ) ‘ (A _x 

3 2 2 ) + arcsin x 
x x 


In SAINT, the solution of 
4 
x 
Freeeeae dx 
proceeds roughly as follows. 


In this problem y = arcsin x is substituted yielding 


sin’ 
cos 


I) 
as in SIN. 


y y 


Subproblem I is transformed into 
4 
IT) leas y dy 
and into 
4 
III) jcot y dy 


both of which will now be added to the subproblem tree. Finally, z= tan oy 
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transforms subproblem I into 
4 
z 
IV) Jo (a 22 > 2zye 2? 
which is transformed by IMSIN into 
a 
Vv) 32 (1 + 2“)(1 - 2“) ae 
No more transformations are possible on subproblem I, so transfor- 
mation will be attempted on subproblems II, III, and V. 
Subproblem II is transformed by z = tan y into 
4 
Zz 
wm lize 
IMSLN then performs the polynomial division and obtains 
VII) Sea +22 4—+3) az 
l+z 
From VII we obtain 
VIII) ieee 


x) [e2a2, and 
Xx) ——, dz 
l+z 
Subproblems VIII and IX are solved by the table look up in IMSLN. 


This leaves II, III, V and X. 


III can be transformed by z = cot y, into 
XI) lewis dz 
and IMSLN will convert it to 
XII) - FOE dz 
By now only subproblems V, X, and XII remain to be considered. The 


transformation w = arctan z on subproblem X yields 


XIII) Jaw 


ee rn OE Te eA SENN Oe AR ST ee TE ey OG ee Te ee ee eae ee LN ee ae ne SMD Pe ee Oe 
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which IMSIN solves by the table look up. Now IMSLN realizes that sub- 
problem VII has been completely solved and by backward substitution can 


obtain the final result 


Stan*aresin x - tan arcsin x + arcsin x 
We should note in the solution methods how SAINT kados several 

Sok ions to the particular path to be followed in obtaining the answer. 

This is particularly noticeable in subproblem I’which generates II, III, 

and IV. Only one of those three subproblems need be solved. SIN will 


generate only one subproblem, and will commit itself to using it. Of 


these subproblems only IV can truly be faulted. The tan ‘ x transformation 


is generally to be eschewed if any other transformation is possible. How- 

ever, the lack of communication between SAINT's heuristics make: such a 

principle difficult to implement. “ 
Furthermore, it appears that subproblem XIII should logically follow 


X. However, the cost of obtaining the character of subproblem X in SAINT 


forced the particular order of events to be followed. A mechanism like 


FORM would have simplified this situation tremendously. 
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Given that we have decided on an outstanding factor in the 
integrand, we can frequently make an educated guess regarding the 
form of the integral, assuming, of course, that the integral can be 
expressed in finite terms. 


Suppose the integral f(x) has an outstanding factor of the 


form 8) say, f(x) = h(xye® then we can guess that 


J f£(x)dx is of the form 


a(xye®) + d(x) =f £(x)ax = f nye’ ax 


where a(x), b(x) are undetermined functions of x, and where 


a(x) will not involve 8 &) 


Certainly J £(x)dx must contain 8 ®) since one cannot other- 
wise obtain such a function through differentiation. If fé)ax 
has a nonlinear occurrence of e® &) then so will its derivative, 
but this nonlinear occurrence will not cancel in f(x). 


Given the above choice for fe@)dx, then by differentiation 


we obtain 
a(xje® ™ g(x) + a' (x)e® + b'(x) = £(x) = oF Oh (x) 
A simple choice for the value of a(x) can be obtained by requiring 


that the first coefficient of e8 &) on the left be equal to the 


coefficient of e& &) in f. Using this choice we obtain 


O- e ae 
es @ 


g& Ox) 
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The value of b(x) is obtained in a subproblem. 
b(x) = frat (xye® ax 


Hopefully, the choice of a(x) made above will yield a simpler 
integration problem for the determination of b(x) than the original 
problem. Let us consider a simple example using this guessing 


procedure. 


f(x) = xe* 


a(x)e*+ b(x) = J£(x)dx 
a(x)e* +a' (xje™ + b'(x) = xe™ 


xe™ 
a(x) = a =x 
a'(x) = 1 


b(x) = Jrt-e%ax = fre%dx 


The subproblem for b(x) is certainly simpler than the original 
problem. It will be instructive to consider how the method out- 
lined above will handle such a problem. Below we shall usually 


ignore the functional characterization of a(x) and b(x). 
b= Jretax 
ae. +b, =b 


1 1 


x 1.x 1 gre es Lm 
aye + aje +b) b e 
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Ser 
a, = =-l 
ay = 0 
by = J -O-e™dx = fo dx = constant 
b = ae” + bi = -e” + constant 


Finally, 


x 
Jf x)dx = xe" - e* + constant 


Let us now consider another example using this procedure. 


. 2 
f(x) = x cos oo = 
sin ee 
The outstanding factor in f(x) is e 
ae * 45 = S£(&)dx 
sin x 2 sin x2 2 sin x 
e cos x” 2x tate +b! =x cos x‘e 
a=% 
a! = 
b' = C, b = constant 


sin x 
e + constant 


ec, 
h 
ak. 
od 
A 
a 
* 
u 
ale 
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The first of the two problems above is usually seieed by in- 
tegration-by-parts. However, that method requires an integration 
step (i.e., Je*ax) which we did not perform. Furthermore, the 
integration by parts method is inapplicable in the second problem 
above. The latter problem is handled by the Derivative-divides 
method such as is used in SIN's first stage. So the analysis per- 
formed by the Edge heuristic and in particular the analysis of 
Edge that we have been presenting is different from either of these 
two general methods of integration. 

An analysis which is similar, but more complex than the one 
made by Edge is employed by Method 7 of SIN's second stage. Let 
us consider the manner in which the method proceeds in light of the 
discussion above. 

We recall that Method 7 deals with integrands of the form 


P(x) 


R(x)e where R is rational and P is a polynomial in x. 


An example solved by this method is 
2 
$e) «Ox tie” 
Edge would in this case guess 
x2 
a(x)e” +b(x) = Jf G)dx 


and 


2x741 _ 2x°41 
(x*)' 2x 


a(x) = 
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Method 7 is superior in this case in that it considers the 


R(x) factor term by term. Thus, it would guess 


2x2 2 
x 2x 
a Gaye aes 


It turns out that this is the correct value for a(x) since 
2 
. : x 
the integral is exactly xe 


On a more complex problem such as 
4 2 
a5° + 5x +x + 4x +1 ae 
(x2+1)2 


Method 7 would proceed by first letting 


6 5 
BOSS 2x = x 


G25 ay Cony? 


The subproblem it generates is 


net + 4 +5 - _ 
x 41 x2 
e 
(eae 
Now it lets 
ge 2x3 


SG) Sos see He 
ye @i'ge +f (Paty 
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Finally, the result is 


5 i ea ee 
x +2x +3x +x +4 ex? 


Grays 


or 
rd + 2x +1 we 
Snake eae: 

2 (x +1) 


Thus, we see that although the heuristic of guessing the form 
of the integral is correct in the two examples above, the particu- 
lar mechanism for guessing the values of the undetermined coefficients 
which is employed in Edge is not sufficiently powerful. We shall 
now indicate two other difficulties with the analysis of Edge 
described above. 
Let us recall that Method 1 of SIN's second stage handles inte- 
grands of the form Elem(e*). This method substitutes y=e*. In 
the case of rational functions of exponentials this substitution yields 


a rational function. Thus, for example, 


Faye Gries 
becomes 

(yt+l)y 
after making the substitution. The rational function package will 
expand this integrand and integrate the resulting quadratic in y. 
Edge would guess the form of the integral without making a corres- 


ponding expansion. This leads to an incorrect guess of the form 


114 


since the two factors in f(x) are closely related. Had Edge ex- 
panded the integrand and integrated the terms separately, it 
would have easily obtained the integral of f(x). 

Another difficulty with the manner in which Edge guesses the 


form of an integral is shown in 


f(x) = e 


Method 1 of SIN's second stage would yield a rational function 
which would be factored and expanded in partial fractions by the 
rational function package. Here again the two factors f(x) are 
closely related and thus the guess of the form of the integral 
made by Edge and the resulting guesses of the coefficients will 
fail to yield the integral. A partial fraction expansion is re- 
quired if the integrand is a rational function of related terms. 

While keeping these weaknesses of Edge in mind, we shall con- 
tinue to consider how the guessing heuristic operates on outstanding 
factors of different forms. 

Let us suppose that 

f(x) = h(x) log(g(x)) 
and that the logarithmic factor is the outstanding factor in f(x). 


A good guess of the form JiG)dx, if it exists, is 


clog” (g(x)) + a(x)log(g(x)) + b(x) = f£()dx 


where c is a constant and a(x) does not involve log(g(x)). 
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The log? term is necessary (e.g-., f£(x)=1/x logx), but its 
coefficient is only a constant. Otherwise the derivative of the 
from above would contain a leg term which would not cancel in 
f(x). 


Differentiating we obtain 


2c) log g(x) + tes) + a'log g(x) +b’ = h(x)log g(x) 


or 


eck + a')log g(x) + ab} +b’ =h(x) log g(x) 


In the above we grouped the terms involving the outstanding 
factor log g(x). We note two differences from the exponential case. 
First there is the constant c which did not arise before. Then 
the coefficient of the log term is a' instead of a. We can solve 


for a(x) by using the relationship 


Dies 9, £2 
a h (x) 2c 5 (x 


a= [h(x)dx - 2c log g(x) 


We now use the fact that a(x) is independent of log g(x) in 
order to obtain a value for c. That is if J n(x)dx has a term in- 
volving log g(x), the c is chosen so as to cancel that term. 
Otherwise, we chose c=0. The value of b' is determined by the 


relationship. 
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bt = -g8 


=-a 
g (x) 
Let us consider an example. 


£(x) = (x + 1/x)log g(x) 


2 
c log x+a log x +b= J (x+1/x)log x dx 


(2 c/x + a')log x + a/x +b’ = (x + 1/x)log x 
a= fe + 1/x)dx - 2c log x = 1/2 oe + log x - 2c log x 


2c =1,c¢=1/2, a=1/2 x? 
b! = -a/x = -1/2 x 


b= -1/4 x 
2 2 2 
J (& + 1/x)log x ex = 1/2log’x + 1/2 x“ log x - 1/4 x 


It should be noted that J@ + 1/x)dx can, of course, also be 
obtained by a guess of the integral. 


The guess for the logarithmic case generalizes when f(x) is 


of the form 
f(x) = h(x) log g(x), n> 0 
In this case we can guess 
n+l n n 
c log g(x) +a log g(x) +b = Jn) log g (x)dx 


with a,b,c determined using the same method as above. 
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Let us consider how we can capitalize on our experience of the 


types of outstanding factors dealt with above. Suppose f(x) is of 


the form 
f(x) = —ho) » where rae is the outstanding 
1 + g° (x) & 
factor. 


The argument now proceeds as follows: One could arrive at a 


factor +s by two routes which do not involve complex con- 
1 +g (x) 
stants: 


a) log( + g°(x)) 

b) arctan g(x). 
In either case the coefficients must be constants gince if they were 
not the derivatives would contain terms more complex than found in 


the integrand. Thus the guess is 
ce log(1 + g”(x)) +d arctan g(x) = | s(x) ax 
ie +e, = 2G) 
Ll+g l+g l+g 


(2 gc + d) g' = h(x) where c, d are constants. 


Consider f(x) = 4 mn 
1+x 


(2x"c + d)2x =x 


2x76+ d= ; 
FS 
c= 0,d*% 
Seceyax = sarctan x? 
2 . 5 
We should note that our guess fails in such cases as — r 
1+x 


in which division must be. attempted first, or in the case of 
1 
1 + tan x 


which is equivalent to coax. 
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In order to contrast the Edge heuristic approach with that used 


in Stage 2 of SIN, let us consider functions of the fom 


£(x) = eR > 1 a positive integer 
(1 - g (x)) 


An educated guess for the form of the integral of f(x) is 


Serene (Sanne +b*# Jeceyax unless n = +1 
2 2-1 : 
CL = 82x)?! ) 
If n = +1, then we shall also consider the possibility of a 


c arcsin(g(x)) term, where c is a constant. 


An example we considered in Chapter 4 is 
4 
—_—_x__ 
f(x) = a - 2/2 


4 

a x 
aye ee 
ie x2 3/2 qa - x2 5/2 

a(3)(- 2x) a! : xt 
sceathyy Steal +" + bt ——— 
a -x? 5/2 * a - x? 3/2 (i «x 25/2 
a xix 
3x 3 

a' = x 
b' = 

Gute 

Now we shall generate a subproblem. 
2 
+b, <L- Bae x 

“2 1/2 ; 
a - x) / a - x2 3/2 
a,(-1/2) (-2x) nt aj pple -x” 

2 
(=x 3/2 G-< x2yi/2 1 a - x2) 3/2 
> = 
ar = -1 
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L 
bt =————— 
1g - xy 


In this case we shall guess 


a, (1 - 2h /2 +c arcsin x = Ja - x2) “1/24, 


a, (1/2) (-2x) - 1 
1h +-———_ = 

(1 - x’)! a (i - x2) 1/2 a x2) 1/2 
“xa, te=l 

ec =1 

a, =0 


The final result is 


ot x? 2 3 / 
( 2.572 * = 3, (S20 rl.. x(1 - x? “1/2, arcsin x 
1-x 


We should like to mention how Edge handles trigonometric functions. 
For outstanding factors of the form sin(g(x)) it guesses cos(g(x)) and 
it guesses cos(g({x)) for outstanding factors of the form sin(g(x)). 
However, this manner of dealing with trigonometric functions is not 
necessarily the best one. Edge should in some cases consider the com- 
plex exponential form of the trigonometric functions. In this way 
Jein™ dx can be found easily for integral values of n after expanding 
the complex exponential form of the integrand. By keeping the trigo- 
nometric form Edge is forced to deal with methods such as "solution by 
transposition" which ogeuirs in lati x e*dx when one of the subproblems 
is [ati x e dx. 


We have indicated above some examples in which Edge fails to 
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make a good guess for the form of the integral or the values of the 
undetermined coefficients in the form. Thus, it 1s necessary to 
determine whether Edge is progressing toward a solution. If the 
outstanding term involves an exponent and the absolute value of the 
exponent is decreasing, the routine thinks that it is making progress. 
The same is true if another factor in the integrand is exponentiated 
and its exponent is decreasing while the outstanding factor remains 
the same. The program is certainly not progressing if it obtains 
a subproblem which is exactly the same as some previous subproblem, 
though a solution by transposition is attempted if a subproblem is 
a constant multiple other than one of some previous subproblem. 
In the above we have indicated some cased in which the form has co- 
efficients which were constrained to be constants. The current : 
version of Edge handles these cases by attempting a guess which ig- 
nores a term (usually the one with a constant multiple). If that 
guess fails to yield the integral using the progress information 
outlined above, the program backs up and introduces a new term in 
the form while eliminating another term. In this manner Edge per- 
forms a depth first search. 

Below we would like to indicate the theoretical results which 
underlie the Edge heuristic. 

Historically, the quest for results regarding the form of an 
integral goes back to the early nineteenth century. Laplace con- 


jectured that the integral of an algebraic function (y is algebraic 
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in x if P(x, y) = 0 where P is a polynomial with constant coefficients) 
need contain only those algebraic functions which are present in the 
integrand. This conjecture was proved by Abel. Liouville examined the 
form of the integral of an elementary function in a series of papers in 
the 1830's. Before we present the statement of Liouville's main theorem, 
we shall need some preliminary considerations. An important feature of 
Liouville's theory of integration is a hierarchy of elementary functions. 
In level 0 of this hierarchy are the algebraic functions. The monomial 
of level Ois x. A monomial. ot level i+ 1 is a function represented by 
e” or log y, where y is a function of level i and where the monomial has 
no representation which is of lower level than i+1. Level i +1 also 
contains all functions which are algebraic combinations of monomials of 
level i + 1 with functions of lower levels provided again that those 
factions have no representation of lower level. Thus, a is of level 
1 and eXee + log(1 - ix’) is of level 2. We should note that this 
hierarchy includes all trigonometric and arctrigonometric functions by 
using their complex exponential and logarithmic forms in order to clas- 
sify them. 

Given a representation of an elementary function one can list 
the monomials. and algebraic functions of these monomials which were 
combined to form the function, Among the monomials and the algebraic 
functions there will be some which are of the highest level. Choose 


one such function and call it the principal function. Thus, the 
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original function is a rational combination of the principal 
functions with functions of equal or lower level. The principal 
2 2 
x 


; ; x. onan , F 
function in xe is e and the principal function in 


, x ; eer : : 
eX41 is e . It is the concept of a principal function which we 


arnee 


were striving for when we defined the concept of an outstanding 
factor in an integrand. We noted above some of the cifficulties 
that one encounters in making an educated guess for the form of the 
integral when using only the notion of an outstanding factor. The 
principal function concept surmounts these difficulties. 

We are now in a position to ask whether there are any more 
monomials and algebraic functions in the integral of a function 
than in the function itself. The answer provided by Liouville's 
general theorem is that except for logarithmic extensions there are 


none. Liouville's theorem states that 
n 
x)dx = v_(x) + E£ c, log v. 
f £@) 5) ecar 
where the ci's are complex constants and the v, are rational 


functions in the monomials and algebraic functions of these which 


appear in f [54]. 


Liouville's theorem itself gives a strong rationale to the Edge 


heuristic since it makes strong restrictions on the possible forms 
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of the integral. Recently, and independently of our work on Edge, 
Risch [ 53] has strengthened the Liouville theorem by showing that 
the constants ce need only be algebraic over the field of constants 
generated by the constants in f(x) with the ground field of the 
rational numbers. Risch has also given a decision procedure for 
those functions obtained without using any algebraic operations 
other than rational operations. His method is similar to the 
one employed in Edge in that it relies on knowing the possible form 
of the integral. However, it is superior to Edge in the manner in 
which it obtains the undetermined coefficients and in its use of 
partial fraction decomposition with respect to the principal 
function in the integrand. When algebraic operations are allowed 
in the integral, Risch believes that the integration problem may 
in general be recursively unsolvable. (See Appendix B where the 
integration problem is shown to be unsolvable using a different 
formulation than Risch's,) However, he is optimistic about integrands 
which are algebraic functions of level 0 in our hierarchy. 

We believe that methods which rely on guessing the form of 
the integral such as Edge or ones based on Risch's algorithm will in 
the near future provide us with very powerful integration programs. 
However, the amount of machinery that they call into play and their 
use of radical transformations such as the complex exponential form 
of the trigonometric functions indicate that those methods are not 
to be applied when more specific and presumably more efficient 


methods are available. 


Chapter 6 


SOLUTION OF ORDINARY DIFFERENTIAL EQUATIONS 


As a first approximation one might attempt to treat the pro- 
blem of solving ordinary differential equations by using a similar 
strategy to the one used in SIN for integration problems. Let us 
recall that SIN used a three stage approach. First it attempted 
to solve the problem using simple methods. Next the FORM routine 
attempted to use local eiuas to determine which one of a specific 
set of methods was applicable to the problem. Finally the Edge 
routine employed a more general method of solution. In this 
chapter we shall consider how such a strategy would fare in the 
problem domain of first order, first degree ordinary differential 
equations (i.e. P(x,y)y'+Q(x,y)=0). We shall indicate the approach 
that was finally taken and describe the methods of solution which 
were programmed. 

There appears to be general agreement in the texts of ordin- 
ary differential equations regarding the elementary forms of dif- 
ferential equations. Linear, exact and separable equations seem 
to constitute the universal choice as elementary forms. They are, 
respectively, of the form f(x)y '+g(x)y+h(x)=0, P(x, y)dx+Q(x,y)dy=0, 
where SEO: and A(x)B(y)dx+C(x)D(y)dy=0. These forms are relative- 

y Ox 
ly easy to recognize, and immediately reduce to integration problems. 
We shall adopt the usual convention that a reduction of a differ- 
ential equation to one or more integration problems constitutes a 
solution of the equation even 1£ the expressions to be integrated 


cannot be integrated in finite terms. Functions which can be ex- 
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1) 


2) 


3) 


4) 


5) 
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pressed in terms of elementary functions and integrals of elemen- 


tary function are called Liouville functions, Due to the above- 


stated properties of linear, exact, and separable equations, the 
set of methods which determine whether the equation matches one 
of the forms constitute a reasonable analogue to SIN's first stage. 

When we consider finding an analogue to the FORM routine of 
SIN, we immediately arrive at difficulities. It is rare that one 
can make a slight change to a differential equation and still be 
able to use the same method of solution, let alone obtain a sim- 
ilar solubioar Let us consider how the method of solution changes 
as we modify the five equations below. The methods of solution 
used (i.e., linear, exact, homogeneous, Bernoulli, and linear co- 
efficients) will be described later. 

2xy' + y+x+1=0 
linear 

2xy '+y (y+x+1)=0 
Bernoulli 

(2x-+y)y '+y+x+120 
linear coefficients 


x(x+y)y '+y (y+2x) =0 


homogeneous 
x(x-+2y)y '+y(yt+2x)+1=0 

exact 
It should be noted that none of the methods mentioned above 


is applicable to any of the other four problems. The situation is 
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even more serious when we note that equation 6 is not integrable 
in terms of Liouville functions, but equation 7, which varies 
from equation 6 by only the addition of the constant 1, does 
possess a Liouville solution (see Ritt [54] p. 73). 

xy '4x7 (y*-1)-2=0 

x’y"4x" (y*-1)-1=0 
Since the equations above appear quite similar, any test based 
on local clues only is going to fare quite badly. Thus the pos- 
sibility of implementing an analogue to SIN's FORM routine does 
not appear very promising. One could of course, use global clues 
(such as the number of occurrences of x and y in the coefficient 
of y') to conclude that certain methods are inapplicable (for ex- 
ample, the linear method is inapplicable if there are any occur- 
rences of y in the coefficient of y'). However, this approach is 
not likely to give us a great increase in efficiency. 

On the basis of the difficulty just noted, one would suppose 
that a practical general method for solving first order, first 
degree ordinary differential equations is not likely to exist. 
Surprisingly, a general method does exist. It is known as the 
multiplier method. It can be shown that if a Liouville solution 
exists, then there also exists a Liouville function u(x,y), which 
can be used to multiply both sides of the equation and obtain an 


exact differential equation and thus an immediate solution. That 


is, given P(x,y)dx+Q(x,y)dy=0, then uPdxtuQdy=0 satisfies 0 (uP)=_0(uQ). 
oy ox 


There is, however, a slight catch in the multiplier method - it is 


very hard to find an appropriate multiplier except in special 
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cases. In fact, several texts caution their readers against trying 
to consider finding multipliers to differential equations. The 
Liouville theory (see Chapter 5) yields a form that an elementary 
solution to a first order differential equation must satisfy. How 
ever it does not appear likely that one could write a method like 
Edge which would exploit this information, except in special cases. 
Negative results such as those in Appendix B appear to dampen the 
hope that one could find a general method for solving differential 
equations, 

We thus conclude that finding an analogue to SIN's strategy 
in the domain of differential equations is quite difficult if not 
impossible. We can, however, decrease our expectations and follow 
the traditional technique given in texts on differential equations. 
That is we can determine if the problem is solvable by one of a 
set of special methods by examining the applicability of the methods 
one at a time. It is this approach which was implemented. We were 
reduced to a search for a method because of our inability to either 
localize the problem or to find a simple model for it. The cru- 
cial rota of constants in determining a solution frustrates even 
the most primitive simplifying considerations. There is one con- 
solation in the approach taken, and that is that once we find a 
method which is applicable it is either immediately reducible to 
integration problems or reduces to simple problems (i.e., linear, 
exact, or separable) in one or at most two steps. Furthermore, 
these steps are known in advance in most cases, 

Eight methods of solution for first order, first degree 


differential equations were coded, These include most of the 


I 
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methods for solving first order equations taught in an introductory 
course on ordinary differential equations. As stated above, the 
methods are examined in turn in order to determine if they are 
applicable. The simple methods are attempted first. These will 
all call SIN whenever they apply in order to solve some integra- 
tion problems, The five other methods will generate subproblems 
which are usually either linear, exact or separable. 

The conventions for stating the problem to the machine are 
the ones used in the text books or the tables. When the dependent 
variable is x, and the independent variable is y, the problem may 


be stated in either form I or II: 


P(x,y)y"+Q(x, y) 


II P(x, y)dxtQ(x, y)dy 


It is assumed that the expression given is to be equated to 

O. The resuit, if found, will be stated in the form 

£(x,y)=Co , 
where Co is a constant of integration. As will be seen, no attempt 
is currently made to solve for y or to perform other simplifications 
such as eliminating logs in the resulting expression. 

Top level control resides in a routine called SOLDIER (SOLution 
of Differential Equation Routine). SOLDIER will translate the pro- 
blem statement into the form (either I or II) desired by the par- 
ticular method. It will be noted that books tend to state a problem 
applicable to a given method in only one of the two forms (e.g., 
linear equations are usually in form I, and exact in form II). 

No attempt was made to use this fact as a clue to a solution. 


We now shall proceed in describing the methods. 
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Method 1 LINEAR 


FORM £(x)y ‘+g (x) yth(x)=0 


Procedure 


a 


Let P(x) =i » Qx)=22 


The solution is 


S Pax Spcxyax 
ye - fo . dx = Co 


Notes 

The recognition of this form is done by a SCHATGHEN pattern. 
Since equations of the form f£(x)y'+g(x) [h(x)y+k(x) }=0 will not be 
recognized as linear by SCHATCHEN using the pattem given above, 
expansion is attempted as a heuristic aid to recognizing forms. 
Expansion is, however, attempted only when a single occurrence of 
y appears in the equation. Thus £(x)y "+g (x) yth (x) [ytk(x)]=0 is not 


expanded and is not recognized as a linear differential equation. 


Examp les 
1) y ‘+ytx=0 
becomes 
ye*+Jxe™ax=Co 


Thus solution is 
ye +xe*-e=Co 
2) xy '+xyt+1=0 


results in ye™+ fe* dx = Co 
x 


Method 2 SEPARABLE 


FORM A(x)B (y) dxtC (x) D(y)dy=0 
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Procedure The solution is 


D(y) 
S38B = VFB w = co 


Notes 

No attempt is made to recognize this form except through 
SCHATCHEN's matching techniques. Thus no factorization of the 
equations is attempted. That is the factorization must be explicit 


although several factors may involve just y or just x. 


Examples 
1) x(y=1)dx -y (x2-1) dy=0 
becomes 
= ak dy=Co 
x -l yl 


Thus the solution is 
1/2 log (x71) - 1/2 log (y2=1)=Co 
This answer is normally simplified on tables to become 
eel =Co or (x7-1)=Co(y”-1). As stated above no attempt is 


yal 
currently made to perform such simplifications, 


* 
2) e siny y'+xcosy=0 


becomes 


eee + ; cae dx=Co 


cosy 


-log cosy — xe * -e * =Co 
The transformation of this problem to the dx, dy form is 
performed by SOLDIER. 


Method 3) Exact - Multipliers 


Exact FORM P(x,y)dx + Q(x,y)dy=0 
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The method is applicable whenever 


SP _ 3 
oy Ox 


The answer is 


frix+ fe~ a. [fal] aco 


oy 
Since this method is closely related in form requirements 


al 


and solution method to certain special cases of the multiplier 


method, these cases are considered here. 


a) If ofS: oR 
oy ox = h(x), i.e., the quotient is just a function of 


Q : 
x, then the multiplier is Jh(x)dx 


Procedure Let P (x,y)= P(x, y)*multiplier, Q(x, y)= Q(x,y)*multiplier 
P and Q are guaranteed to satisfy 
ab _ a 
oy ox 
The solution is obtained using the procedure of equation I 


above with P,Q replaced by P and Q, respectively. 


b) If QQ _ gP ; that is the quotient is a function of y only, 
ox OY _ , 
ax 2 = ky) 


k 
J (yy is a multiplier. Proceed as in step a). 


ec) If fe age aud Oe 2a 
ay ox ox «ay 


then the multiplier is 7 Proceed as in step a) 


Notes 
SCHATCHEN is used to perform the matching required in testing 


to determine if SP equais 9Q. Clearly a matching program such as 
fois oy 


Martin's [37] would be preferable in this case since no pattern 


matching is necessary, but only a match for equivalence. 
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The division steps employ only SCHVUOS's limited simpli- 
fication methods for quotients. Thus no factorization is 
attempted. At present there exists no simplification program 
which can simplify quotients well. For example 

oe 20%1 
e“+1 
is not simplified to e +1 by any reported simplification program. 

Another approach to determintng the applicability of the first 
three multiplier cases is to differentiate the quotient with respect 
to y in the first case and with respect to x in the second case. 
This reduces the recognition problem to a match for equivalence to 
0. In this manner we avoid placing constraints on the simplifica- 
tion program for determining the dppiteaviiity of the aethod: How- 
ever this technique does not yield the desired value of the quotients. 

There exist many other special cases for the multiplier. In 
fact the origin of Lie Groups was motivated by considerations 
regarding the families of differential equations which are solved 
by particular multipliers. 

Examples 
1) (4x y~12x2y 745 243x) y “46x77 = Bxy +LOxyt3y=0 
Solution is 
bey chan y s5u peaagatd 
2) (2xytSxtl)y'+y"=0 
Solution is 


2-5 u 
xy e ly +e PUT ag aCe 


Method 4 Bernoulli 
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a subcase of method 8, but is given special treatment here because 
of the frequency and ease of recognition of this form. 

The factorization of x" from the equation must, in general, 
be performed in order to have the result recognized as separable. 
The recognition of homogeneity and factorization are performed by 
SCHATCHEN and SCHVUOS and thus are not unusually powerful. For 


example x xy y'ty=0 is not recognized as homogeneous. 
x 


Examples 
4): “Sx2 ye Fy? S Sayea 0 
solution is 
108 4% 3. arctanvFZ xo 
V7 x 


3 


2) 2x(y+5x") y'ty xy =0 


solution is 


log x + 10 log. y: 2 108, (347, ) = Co 
9 x 9 
x 


Method 6 Almost Linear 


FORM f(x)g(y) y' + h(x,y) = 0 


where 

h(x,y) = k(x)1(y)+m(x) 
and 

1' (y) = g(y) 
Procedure 


Substitute u(x) = 1(y) resulting in the linear equation 
£(x)u' + k(x) utm(x)=0 
Notes 


This is a method which is rarely indicated in the texts. 
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Examples 

1) xyy' + 2xy“+lx0 
substitution is u(x)ay” 
yielding 


Liu" + 2xutl=0 
2 1 


2) x-cosy y' + siny + e* = 0 
substitution u = siny 


yields 


[= 


x’u' tute*=0 


Method 7 Linear coefficients. 


’ axtbytc _ where a,b,c,a',b',c' 
FORM y sr (28H) = 0 are constants and 
ab' - a'b # 0 


Procedure 
Substitute 
es b'c = be! or, ac'- atc 
aes %- ip = ab? yey a'b - ab! 


and obtain a homogeneous problem (method 5). 


Notes 
Recognition is based on matching 
A(axtby+c)” (a'xtb'ytc') a repeatedly 
in F(x,y), where a,b,c,a',b',c' are assumed to remain fixed in 
f(x,y). 
Examples 
1) (4y+11x- 11) y'- 25y- 8x+62=0 


answer is 
1 il y~22 
log, (x "3 )- 3 1, (2 5 
A 
*9 
~22 


+ 3/2 loge -4+7 9 to 


= 
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2) (yteel) y'+yt2xt320 
answer is 
wn 5 
log t2)+%2 atts y¥"% 
e 3 2 2 —_—3 
ace 


+ 


_3\? 
6 
+ 1/2 log, 2 3 = Co 
sere 
3 


Method 8 Substitution for xy 


FORM y'+L(x,y)=0 


where L(x, y)= 2 H (x"y), 


Here H#H is a function of a single argument, 


and n is a constant to be determined. 


Procedure Substitute u(x)= x'y resulting in the separable equation 


du _ dx 
u(m-H(u)) ~ x 


The method employed to recognize this form uses the implicit 
function theorem to yield an equation in n. 

Consider 

G(x,y) = 5 L(x,y) | 

We wish to determine if G(x,y) = H(x"y) = H(u(x,y)). 
The implicit function theorem states that this relation will hold 


if and only if 


ag gu_ ag au_ 0 
ox ay Ox 


Note that this equation represents the Jacobian in the two 
variable case. Since u(x,y)=x'y, we obtain the following 


relationships: 
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ac x - aes 76 


ox By 
or 
ry 


If n is known, we can determine whether the above relationships 
holds. However we can also use this relationship to generate a 
value for n. If the right hand side of the last equation is a 
constant than a substitution with n as that value is possible. If 


it is not a constant, the method is inapplicable. 


Notes 
This method is a generalization of the homogeneous case 
(Method 5). The method is rarely described although it accounts 

for many of the substitutions in the first 367 equations in 
Kamke [301. In some of these cases Kamke prefers to give other 
methods of solution. For example, in (I 993)%(-<3u) 7427-50; 


Kamke suggests dividing by ee yr? instead of substituting 


- 1/2 
u(x,y) = x ye 
In this method we resorted to a special purpose matching 
rule instead of using SCHATCHEN, The use of the implicit function 
theorem was suggested by Engelman. In this case the theorem 
fits the situation beautifully. However one will probably have 
to make some assumptions to recognize forms such as 


£(x°y) (bxyt=a) = x4y” (xy! + ey) 


In order to perform the integration, y in G(x,y) is replaced 


by ~—~- It is then hoped that SCHVUOS can rid the resulting 


| renee 


NS ee ee re ee ee ee ee Ee ee ee ae ere Sede ep os 
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expression of all occurrences of x. 
Examples (see appendix E for further discussion of these examples) 


1) (xex”y) y'-y = 0 


becomes 
du = i dx = 0 
ufi+ + a 
l-u 


2) xy' + y log.x- y logy - y= 0 
becomes 


du = dx 
u (-1 - (1og.u-1)) 


x 
In Appendix E we describe an experiment in which SOLDIER was 
asked to solve 76 differential equations selected from a college 
text. SOLDIER was able to completely solve 67 of these problems 
with an average time on the order of 5 records. An analysis of 
the problems it failed to solve and steps taken to improve SOLDIER's 
performance on some of these problems is also given in Appendix E. 
We would also like to mention the existence of a program 
which solves linear differential equations of any order with con- 
stant coefficients (see Engelman [36]). It was written by Ernst 
for the MATHLAB system. It utilizes the Laplace Transform method 
for solving such equations, The program makes use of the rational 
function package of the MATHLAB System. 
Some methods which were not described above should be pointed 
out. There are many special cases of integrating factors which 
can be considered. In particular, one method guesses the form 


of the integrating factor to be xy? » Substitutes that form 
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into the equation and solves the linear equations in the parameters 


that result after setting up the conditions for exactness (i.e., 


a (uM) = ae (UN)). TE the system of equations can be satisfied, 
then Method 3 (Exact) is applied. If the differential equation con- 
tains a subexpression which isirrational in both a and y (e.g., 
sin a + ss then it might be useful to substitute for some part 
of this subexpression (e.g., u = xty’), One can also attempt to 
switch the independent and dependent variables. Such a change would 
be useful in 

(xy + x’) y' + e = 0 
since it leads to the Bernoulli differential equation 


e x' + xy + x ) 


There is a large body of knowledge regarding Ricatti and Abelian 
equations (i.e., y' =£(x)y" + g(x)yt+ h(x), and yoy Ae et 
h(x)ytk(y)). These methods, however, frequently rely on knowing 
one or more particular solutions to the differential equation. 
Information regarding methods applicable to Ricatti and Abelian 
equations and to more general differential equations can be found 
in Kamke. Kamke also contains a table of about 1250 equations 
whose solution is frequently given in some detail. 

As is pointed out in AppendixA, a great deal of the informa- 
tion about differential equations could be stored in tables and 
searched by computers. If we presume that a continual effort 
will be made to generate a library of programs and tables for 
differential equations, then programs will become a formidable 


tools for solving these problems. 


CHAPTER 7 


CONCLUSIONS AND SUGGESTIONS FOR FURTHER WORK 


The Performance of SIN 


We believe that SIN is capable of solving integration problems as 
difficult as ones found in the largest tables. The principal weakness 
of SIN in relation to these tables is in cases of integrands which con- 
tain variable exponents and which usually result in solutions which are 
iterated integrals. Edge can solve some of these integrals (e.g.,; 
ee x dx) since it contains special checks for variable exponents. 
However none of SIN's methods in stage 2 are able to obtain such iterated 
integrals. The experiment reported in Appendix D also showed SIN's 
weakness in handling certain algebraic integrands. On the other hand 
the power of MATHLAB's rational function package means that SIN is able 
to integrate many problems not present in the tables. Decision proce- 
dures for cases such as the Chebyschev integrals give SIN a capability 
which is not present in most tables. 

SIN appears to us to be faster and more powerful than SAINT. The 
added power of SIN is principally due to the additional methods that SIN 
possesses. The additional speed is gained by the change in the organi- 
zation of SAINT and by the use of tighter progress requirements. In 
Appendix C we pointed out that though SIN can solve problems solved by 
SAINT two orders and frequently three orders of magnitude faster than 
SAINT, that this figure ig deceptive. It is probable that under optimal 
conditions for SAINT and SIN these figures will reduce dramatically so 


that the gain in speed will average to about a factor of three. In 
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cases where the Derivative-divides routine is successful in solving a 
problem (about half the time), the ratio should be much higher. The 
average will be lowered by the increased effort spent on algebraic mani- 
pulation on the other problems. SIN's simplifier SCHVUOS, is probably 
a good deal slower (but more powerful) than SAINT's hand-coded simpli- 
fier. This factor affects the cost of most of the other processes such 


as differentiation and matching. 


Qn the Organization of SIN 

Instead of describing the organization of SIN at this point, we 
would like to indicate certain aspects of this organization which arise 
out of the discussion in Chapter 4. The reader is referred back to 
Chapter 2 for an outline of SIN's organization. 

One of the difficulties that AI programs will increasingly face 
involves communication (see Newell [ 46 ]). I£ a subroutine performs 
an analysis of a problem then its analysis must be communicated to its 
parent routine in such a manner that the parent routine can easily 
understand the information. If two subroutines are working in parallel, 
one may need to know what the other one is doing in order to perform 
efficiently. An example of the usefulness of the latter type of comm- 
nication was pointed out in Chapter 4 in the section in which we described 
SAINT's solution of acta dx. Here it was noted that in one of 
the subproblems SAINT should not have performed the substitution 
y* tanox since another trigonometric substitution on the problem had 
already been made which was undoubtedly superior. In this case SAINT 


did not seek out the necessary information. A similar difficulty arose 
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when SAINI's methods could have performed transformations which were 


the inverse of previous transformations. This occurs in the method 


sin 
cos 


which substitutes = for tanx, since this method may later substi- 


tan x 
secx 


tute for sin x. In this case SAINT did communicate the existence 
of the previous transformation. While we do not wish to minimize the 
need for explicit communication in complex problem solving programs, 

we do want to point out the usefulness of highly implicit communication 
in certain situations. If a parent routine knows enough about the oper- 
ation of its subroutines, then it is not necessary to communicate a 
great deal of information, the parent routine can determine what has 
probably occurred with just a few key works of exchange. We think that 
such implicit communication occurs when FORM finds excuses for the 
failure of its methods to solve certain problems. In fact in these cases 
the methods are not aware of the situation as much as FORM is. SIN will 
not attempt the tansx transformation if another trigonometric transfor- 
mation is possible since this choice was built into the program. Similar 
remarks hold for the trigonometric identity transformation. What these 
examples appear to point out is that when one is able to centralize con- 
trol in a routine which has sufficient understanding of a task, then the 
communication requirements in the program are markedly reduced. 

We noted in the discussion in Chapters 2 and 4 that SIN employs 
tighter progress constraints than does SAINT. This implies that there 
may be some problems which SIN will not attempt to handle though it has 
sufficient machinery for solving them. (On the other hand, we believe 


that SAINT will attempt to solve Joss x 


dx until it runs out of time or 


space.) We are not particularly worried by,such occurrences. It appears 
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to us that it is more important at present that a program have a good 

understanding of what it is able to do rather than that it have a medi- 
ocre understanding and be able to solve more problems. If one desired 
to increase the power of SIN we would wish that he spend the effort on 
improving the analysis done by FORM rather than that he spend it on in- 
creasing the search in FORM. We understand, of course, that it is not 
always possible to take this approach. The domain of nonlinear differ-~ 


ential equations is a good example of such a situation. 


On the Organization of SOLDIER 


We noted in the Introduction that we did aot expect to find a con- 
cept as powerful as the Edge heuristic in the domain of first-order, 
first-degree ordinary differential equations. Thus we were not surprised 
to fail to find a practical method similar to Edge. In fact the most 
notable aspect of SIN's organization that we carried over was the reli- 
ance on tight progress constraints. It seems to us that human analysis 
of this problem domain also employs tight progress constraints in the 
solution methods. 

Let us recall from Chapter 6 that SOLDIER employs eight solution 
methods. These methods are attempted one at a time. If a method decides 
that it is able to make a simplifying transformation (i.e., a direct re- 
duction to integration or a reduction to a known and simpler differential 
equation form), then it will attempt it, and the result of the transfor- 
mation will be the value of SOLDIER. Otherwise the next method will be 
considered. 

In Appendix E we tested SOLDIER on some problems given in a differ- 
ential equations text. SOLDIER was able to solve 67 out of 76 of these 


problems. We do not believe that one should conclude from this perfor- 
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mance that SOLDIER-is far removed from being as. powerful a differential 
equation solver as expert humans are. We think that if the improvements 
and extensions to SOLDIER that we suggest in Chapter 6 and below are made 
then SOLDIER will be a powerful program indeed. We were disappointed 
when we recognized this to be the case. The reason for it is that mathe- 
maticians have not made great advances in this problem domain over the 


past three hundred years. 


Qn the Applications of LISP 


Unfortunately, and mainly wrongly, LISP has acquired the enuteeton 
of being a language with very low execution speed. One factor leading 
to this reputation is the slow speed of arithmetic in most LISP dnpies 
mentations. (The Hawkinson-Yates system for the 7090 is an exception.) 
Yet when one declares variables to be fixed or floating it is possible 
for LISP to execute arithmetic statements as well ee any other processor. 
It is the convenience of mixed data types (during execution) which forces 
the slow, interpretive execution speed of arithmetic operations in LISP. 
Another factor leading to this reputation is that old and famous programs 
such as SAINT ran interpretively. | Compilation usually results in approx- 
“imately a twenty fold gain in speed. However the largest factor leading 
to this reputation is due to the attitude of the LISP programmers. LISP 
programs were usually developed in research projects where speed was only 
a minor consideration. (It is safe to say that many impressive programs 
such as Bobrow's STUDENT [ 4 ], Evans' ANALOGY and Slagle's SAINT could 
not have been written as doctoral dissertations except in LISP.) The 


trend in the recent past has been toward using LISP as a practical language 
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for projects with real time constraints on response. For example the 
MATHLAB system of Engelman and the robot projects at MIT and STANFORD 
have such real time constraints. It is thus important to recognize 
that LISP programs can be written which are relatively fast provided 
that one takes speed into consideration in designing the programs. It 
is our hope that SIN can serve as a model for this lesson and remove 
some of the stigma attached to LISP. It is far too easy to write LISP 
programs which execute slowly if one becomes beguiled by the ease of 
using LISP's recursive mechanisms. SAINT's pattern matching program 
Elinst was far too recursive to run efficiently. However it was a much 
smaller program thereby and this factor was crucial in the implementation 
of SAINT. The rational function package used in SIN runs slowly when 
parameters are introduced into a rational function. While such a de- 
crease in speed is inherent in the task, it is also due to the extensive 
utilization of the recursive nature of the LISP list structure in the 
representation of rational functions. A special purpose representation 
of rational functions such as used in Brown's ALPAK [6] or Collins' 
PM system [12] should increase the speed of the rational function pack- 
age by one to two orders of magnitude. 
On the Teaching of Integral Calculus 

We would like to see the introduction into first year calculus 
courses of the concepts underlying the Edge heuristic and the Liouville 
Theory. Besides giving the student a very powerful integration method, 
such a study might acquaint him with practical applications of notions 
derived from modern logic such as Godel numbering or decidable problem 


2 
: ae x . 
domains. Such a course might also indicate why ls dx is not an ele- 
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mentary function rather than leave such a statement without proof. The 
relationship of the Edge heuristic and the problem solving technique of 
guessing could reasonably be emphasized in courses aimed at a more prac- 


tical foundation. 


Improvements and Extensions to SIN and SOLDIER 


All the programs discussed in this thesis would profit by being 
rewritten for the LISP system of the MAC PDP-6, The PDP-6 LISP system 
executes bout three times as fast as the 7094 LISP system on compiled 
function and even faster on interpreted ones, This is due to the im- 
proved instruction set of the PDP-6 and to improved system's programming 
' rather than an increase in the machine speed. The MAC PDP-6 also has 
256 K of memory which would mean that all the routines could certainly 
be loaded at one time. This would allow greater interchange between 
SIN and SOLDIER and the rational function package. It would allow 
SIN and SOLDIER to be used as subroutines to the MATHLAB system of Engel- 
man. The excellent scope output routines of Martin [ 37 ] are available 
on the PDP-6 as are teletype output routines written by Millen for the 
MATHLAB System [ 40]. Routines which accept FORTRAN-like (i.e., infix) 
notation for algebraic expressions are available and should be used in- 
stead of the LISP (i.e., prefix) notation which is now used in inputs to 
SIN and SOLDIER. Anderson of Harvard University is currently working on 
a program which permits hand written input of algebraic expressions from 
a Rand Tablet [12 ]. Such a program could be used in the future as well. 

SCHATCHEN should be rewritten so that new modes can be defined by 
the user without reprogramming relevant sections of SCHATCHEN. The 
simplifier SCHVUOS served us well while we required a small simplifier. 


However a new, more powerful and efficient simplifier written along the 
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lines indicated in Chapter 3 should be used. As is clear from Chapter 6 
and Appendix E this simplifier should have factoring and division capabi- 
lities not currently available in general purpose simplifiers. The task 
of matching expressions for identity should be performed by a program such 
as Martin's matching program rather than by SCHATCHEN [ 37]. 

SIN's second stage would profit from a better handling of algebraic 
integrands. This is clear from Appendix D. Another lesson learned in 
that appendix is the usefulness of a capability whereby the user can com- 
municate with FORM and some of the methods used in SIN in order to intro- 
duce new functions such as the error function. A table of integrals invol- 
ving the error function which contains 145 entries was computed by Maurer 
in 1958 [ 38 ]. Such a table should be computable by SIN as well. 

It is clear that much more work needs to be done on the Edge heuris- 
tic both as a method for solving integration problems and as a possible 
tool for teaching freshman calculus students. We understand that Risch 
is currently programming his method of integration using the rational 
function package. Such a program could be included in SIN's third stage 
as well. 

In discussing SOLDIER in Chapter 6 we noted that a great number of 
methods are knowm which have not yet been programmed. An interesting 
project is involved in finding particular solutions to differential equa- 
tions. Such solutions can be used to find general solutions to Ricatti 
differential equations. In Appendix E we noted that the output of SOLDIER 
rarely conforms with the form of the text books' output. Another project 
would be to devise a routine which translates SOLDIER's output to conform 


with the implicit conventions used in text books. 
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We believe that if work is continued on the implementation of new 
methods for SOLDIER, then this program will become a truly formidable 
tool in solving ordinary differential equations. In fact a program such 
as SOLDIER can become an active competitor with text books or journal 
articles as Sandton for the permanent storage of knowledge about methods 


of solution. 


On a Mathematical Laboratory 


In a forthcoming monograph by Martin and Moses the concept of a math- 
ematical laboratory will be introduced. In a mathematical laboratory a 
user will be able to solve symbolic problems in mathematics. A mathema- 
tical laboratory is envisioned to consist of two major components, a 
general purpose system and a set of specialized programs. The general 
purpose system will deal with input and output and will provide a 
command-oriented language with many capabilities. The specialized 
programs: will deal with tasks which are sufficiently complex to require 
a separate organization. SIN and SOLDIER are prototypes of such special- 
ized programs. Specialized programs will in the future employ a set of 
rather general routines such as a pattern directed language similar to 
SCHATCHEN or a simplifier such as SCHVUOS. These frequently used routines 
will form a data base from which new specialized programs will be more 
easily written in the future. Work is proceeding in this country on all 
aspects of such a mathematical laboratory, but we shall concentrate our 
- discussion on the specialized programs. In a recent thesis [ 28 }, Itur- 
riaga has written a program in FORMULA ALGOL for finding limits of expres- 
sions and for determining whether one expression is greater in value than 


another over some domain. This work represents an extension of work on 
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limits performed by Fenichel [ 19 ]. No work has been done to our know- 
ledge, on finding sums of infinite series. Jolley provides a table of 
such series [ 29 ]. Nor has any significant work been done on definite 
integration. Bierens de Haan's monumental work on this area can be 
consulted { 24 ]. In both of these cases one might at first utilize a 
table look up as described in Appendix A. 

Leaving aside the area of analysis we note that Maurer [ 39 ] and 
McIntosh [ 57 ] reported on systems which deal with finite groups. Some 
routines have also been written for solving specialized tasks in topology. 
In fact a new theorem in topology was proved as a result of experiments 
performed by such programs [ 50 ]. Likewise specialized programs in com- 
binatorics have been written [ 16 ]. Such programs should be expanded 
upon, systematized, and made available as part of a larger symbolic mani- 
pulation system in pure mathematics. 

Along with the need for practical work in algebraic manipulation 
there is a need for parallel work on theoretical results. Collins' study 
of the Greatest Common Divisor algorithm led to a major imporvement of 
the Euclidean GCD method [ 13 ]. Similar studies are needed of methods 
for factoring polynomials, especially over extensions of the ring of in- 
tegers. We need a study of the degree of growth of the results of certain 
algebraic transformations. We should have examples of very bad problems. 
In { 42 ] we present such a problem in the domain of polynomial equations. 
Recursively unsolvable results such as those in Appendix B point out cer- 
tain difficulties in algebraic manipulation. Proofs of the decidability 
of certain subcases such as in Richardson [ 52], Caviness [9 ], Brown [7], 


Risch [ 53], and Tobey [ 63] are useful also and these may in turn lead to 
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programs which implement the decision procedures used. 


On Artificial Intelligence 


In the area of Artificial Intelligence we would applaud all projects 
which required and utilized a large base of specialized knowledge. Robot 
projects are examples of such projects. On a less ambitious level we 
would like to note that it might be useful to develop a program which 
solves word problems in the calculus. Such a program would counter, (if 
only temporarily!) the objections of those who claim that the semantic 
approach of Bobrow cannot be extended. One approach toward this problem 
would be to construct several methods of solution (e.g., "rate" problems 
of several types). Then the program would use local clues (probably key 
word analysis as in Weizenbaum's Eliza [ 66] will do) to determine which 
solution method is appropriate. Then the method choseri should guide the 
program in extracting the information from the problem statement necessary 
for a complete solution. 

It would also be interesting to have some work leading toward a 
program which solves multiple choice questions on the level of the MAA 
high school prize examinations. Let us consider a typical problem. 

"At what time between 4 and 5 PM are the hands of the clock exactly 
opposite each other?" 

If the program knows that the answer involves the denominator of 11 
and one such answer is presented, then it should guess that answer. If 
only one answer involves a denominator of 11 and is moreover between 4:50 
and 4:55 PM, the program should guess it. These guesses would be made at 


stage 1 of the program. 
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If stage 1 is not effective but if the program knows the method of 
solution (a linear equation), then it should solve the equation. This 
would be done at stage 2 of the program. 

If neither of these stages is appropriate, then the program must 
obtain an analysis of this situation. Such an analysis is presently 
beyond the capabilities of AI programs, but not grossly beyond these 
capabilities. 

Presumably one of the methods available to this program is a rate 
problem solver. The statement of the problem does not immediately imply 
a rate problem but the knowledge that the minute hand and the hour hand 
travel at different rates could lend weight to such an hypothesis. Let 
x be the time in minutes past 4 o'clock at which the event occurs. Then 


the minute hand travelled x minutes between 4 o'clock and the occurrence 


3 
12 


ever the hour hand started with a 20 minute advantage and ended thirty 


of the event. The hour hand travelled minutes during that time. How- 


minutes (one half a revolution) behind. Thus 


x =20+30+— 


12 
600 _ ., 6. 
x 11 477 minutes 


The solution above required the use of information about clocks 
and the relationship between clocks and circles. It also required a 
sophisticated word problem solver that was able to utilize this infor- 
mation to set up the linear equation. Another method of solving this 
problem relies somewhat more heavily on making inferences about diagrams. 
In either case it appears that a good deal of machinery is required for 
the analysis of this problem. Besides the word problem solver a program 
which makes inferences based on diagrams of plane figures is also useful. 


While such programs may not be sufficient in order to perform the analy- 
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sis of this problem, they certainly go a long way in that direction. 


APPENDIX A 


ITALU - AN INTEGRAL TABLE LOOK - UP 


This appendix describes some experiments which were performed 
with an integral table look-up. Although a table look-up is 
probably inferior in the long run to an integration program with 
regard to power or speed, the techniques employed in this routine 
could be found useful in other areas of symbolic mathematics such 
as exact definite integration, summation of series, or differential 
equations. 

There are several ways in which one could search a table of 
integrals. There is the brute force approach. In this case each 
entry in the table is matched for equivalence with the expression 
to be integrated. This scheme is used in SIN's Derivative-divides 
routine. Such a scheme takes a long time when the table is large, 
of course. A better approach is to.sort the entries in the table 
by the factors which appear in them (e.g., all entries with sin x 
as a factor are in one subtable). Thus when presented with 
sinxe’, one checks all subtables for the one which contains sinx. 
In that subtable one checks for another part of the table which 
contains sinxe* and there one presumably finds the entry desired. 
This approach would require that there be n! entries for an 
integrand with n factors (unless the expressions are canonically 
ordered). A table look-up along these lines was discussed in 


Klerer and May [32] | 
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Besides being relatively slow these approaches are not sensitive 
to the fact that an integral table usually presents generalized forms 
of integrands (e.g., ox? 4oxtc) and not just particular integrands. 
(e.g., +1). This is due to the presence of undetermined constants 
in the integrand. These constants are used as coefficients as in 
f sin(axt+b)dx or exponents as in fax or [einxds.' ‘The example 
i) x sinxdx points out a further feature of the integral table, that 
is, the presence of iterated integrals in the table. A good integral 
table look-up should be required to make use of all of these features 
of the tables. 

An integral table look-up, called ITALU, was programmed to 
account for the features of the table just mentioned. It had the 
additional property of being relatively fast by making use of the 
technique of hash-coding. 

By carefully hash-coding the expression to be integrated one 
can expect to obtain a number which would correspond to relatively 
few expressions in the table. Furthermore the hash-code can be 
designed to account for the distinctive features of the table. The 
hash-coding scheme which was implemented ignored constants in sums 
and products. Thus sin (ax+b) coded the same as sin(2x), sin(x+2), 
sinx, and sin(32 x+5y+z). The hash-code, moreover, was a floating- 
point number and the code of a sum was the sum of the codes of the 
terms in the sum, with a similar rule for products. Thus the code 
maintained the algebraic identities for sums and products. Hence 


sinxe* coded like e* sinx. In this manner we avoid the need for 
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a canonical form of an expression. One further feature of this 
coding scheme was that terms in a sum which had codes identical 
with those of previous terms were ignored. Thus sin (x+tyx) 
coded like sinx and x 42xy43x coded like (2y+3) x + = and 

axe dixie. 

The coding scheme was obtained recursively. The variable of 
integration had a fixed code of 0.95532. Any trigonometric, 
arctrigonometric or logarithmic function had associated with it 
a fixed floating-point constant which generally was exponentiated 
by the code of its argument in order to obtain the code of the 
expression. Sums and products were treated as described above. 
Exponentiation was a relatively complex operator for the coding 
scheme. This is due to the frequent occurrence of exponents 
“2, -l, 4, re 2 in the tables. When. these exponents occurred the 
, code for the base was raised to the exponent and the result was the 
code of the expression. Any other constant exponent was coded as 
1.43762 and the value of the subsequent exponentiation became the 
code. Thus x" is coded like a or x®* or gee Fixed bases were 
all coded alike. Thus e* coded like 2* or y*. 

An advantage of this coding scheme was that SCHATCHEN patterns 
could be coded easily as if they were expressions. This was due to 
the fact that the variables in the pattern were considered constants 
with respect to the variable of integration (assumed to be x 
throughout the table), and hence were ignored in sums and products 


and had a fixed value in exponents. Entries in the tables had 
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integrands which were SCHATCHEN patterns (e.g., sin (A/COEFFPT, 
NONZERO-AND- FREEOFX **/cogrFP, FREEOFX). Thus the full matching 
capability of SCHATCHEN could be employed in order to obtain the 
values of the constants in the integral table entry. 

ITALU had an internal table of code numbers for the expressions 
in the table. This internal table was searched using a binary 
search (i.e., the codes were linearly ordered by their numerical 
values). Corresponding to each code in this table was the location 
on the disk where the integral table entry resided. Once a code was 
assigned to an expression, it was determined if an entry in the 
table had an identical code, and the file on the disk containing 
that entry (if any) was read. In order to conserve disk space 
several entries were on the same file, but these entries were 
associated with their codes so that the search of the file was 
linear but rapid. For each expression having the desired code 
(several are possible), SCHATCHEN was used to determine if there 
was a match between the pattern which represented the integrand in 
the table and the original expression. If no match was found, the 
next expression was examined, and so on until all the expressions 
with the appropriate code were examined. If a match was obtained, 
the integral was evaluated after making appropriate substitution for 
the result of the match. Thus the integral contained the values 
of the constants in the integrand. The device of evaluating the 


the integral allowed the integral to be a LISP function. In this 
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manner iterated integrals could be obtained. Hence the ITALU 
program satisfied the requirements of an integral table look-up 
that we considered above. 

The implementation of ITALU was carried through up to the 
point where all of the steps above had been implemented and the 
program was tested on several problems. The largest number of 
entries in the table was only ten at any given time, and thus 
the properties of the coding could not be fully assessed (e.g., 
one could not tell how frequently unrelated entries yielded the 
same code number). The execution time of a call to ITALU was 
generally about 1 second. Most of this time was spent accessing 
and reading the disk. A set of routines were written for 
facilitating the addition of new entries to the table. However 
the description of each entry as a SCHATCHEN pattern with a 
corresponding integral was a fairly tedious job. A compact 
representation of the expressions in the table was obviously 
desirable, but was not implemented. 

Modifications to the hash code of ITALU were considered. 
Under the current coding scheme Vx241 codes like x. One 
possibility is to ignore the value of constants in sums and 
products, but recognize their existence. Such a scheme would be 
useful in handling algebraic expressions. 

We also considered using a hash-coding scheme, such as 
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Martin's Martin's hash codes are elements of finite 


fields rather than floating point numbers. Finite field 
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arithmetic is preferable when there is a risk of a floating-point 
overflow or a round-off error during the computation of the hash 
code. We felt that these difficulties could be ignored or easily 
overcome in the coding of expressions to be integrated. In order 
to account for round-off errors, we thus allowed for a variance 
of 1 «10°° between the code of an expression and one in the table. 
In the domain of symbolic integration, a table look-up is 
probably not the best solution. Programs can now compete 
effectively in many cases with the tables with regard to speed 
and completeness. The situation in the future can only improve 
the relative position of the integration programs. Tables such 


61] 


as Petit Bois' with its 2500 entries contain many errors, 


1 


some of which are serious (e.g., tie cosxdx * 
cosx 


» [51] p. 150). 


However table look-up devices appear to have current 
usefulness in other areas of symbolic mathematics. Very little 
work is being done at present on summation of series and exact 


29) 


definite integration. Tables in these areas exist - Jolley's 


[24] 


in summation and Bierens de Haan's monumental work on definite 
integration. For differential equations we reported solutions 
methods.in Chapter 6. However much still remains to be done, and 
tables could be used as long as programs have not caught up with 
the full power of.tables such as Kamke's BO} | Tables could be 
extended ta include a great deal of information besides exact 


solutions. For example, tables could be employed to obtain good 


numerical techniques for solution or references to papers on 
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particular cases. We should point out that some entries ina 
table would be hard to look-up in any reasonable way. For 
example, the entry xy'=yH(x"y) properly deserves a special 
purpose program as was done in Chapter 6. Information about 
chemical compounds is currently being stored in tables which 
are searched by specialized techniques. Similar methods could 
be used in mathematics. The exact methods of ITALU are clearly 
not extendable to the other problem domains - special purpose 
programs should be used in each case. However the hash-coding 
technique coupled with the use of a matching program for 


increased power seem relevant to each of the areas considered. 


APPENDIX B 


RECURSIVELY UNSOLVABLE RESULTS IN INTEGRATION 


A pident theorem by Richardson [52] showed that the matching 
problem for a class of functions we shall call R-elementary is 
recursively unsolvable. This result is easily applied to show that 
the question of determining whether integrals of R-elementary functions 
possess R-elementary solutions (or elementary solutions in the sense 
of Liouville (Chapter 5)) is Likewise recursively unsolvable. 
Richardson's result, announced January 1966, is probably the first 
theorem about vecatatveiy unsOlvable problems in analysis and has 
aroused great interest in the field of algebraic manipulation. Refer- 
ences to it are made in Brown [ 7], Caviness { 9], Fenichel [19], 
Moses [42], and Tobey [63]. 

There is, however, a feeling among some (e.g., Risch [53]) that 
Richardson's unsolvability result may be due to the fact that the 
integration problem he showed unsolvable is not well-posed. In this 
appendix we shall sketch Richardson's unsolvability proof and indicate 
points in the proof where some of this contention has arisén. We 
shall then present results of a similar nature to Richardson's which 
avoid these difficulties in the proof by extending the domain of the 
problem to nonlinear differential equations. These results are proved 
using similar techniques to Richardson's and were originally proved, 


interestingly enough, over a year before Richardson announced his proof. 
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In order to proceed we shall require the following definitions. 

The R-elementary functions are obtained by the operations of 
addition, multiplication, division and substitution upon real variables, 
a ea using the constants x, the rational numbers , log 2, 
and the functions e*, sin x, cos x, and Log| x} 

The constant problem is to decide, given an R-elementary 
function f(x), whether £(0)=0. 

The identity(matching)problem is to decide, given an R- 
elementary function f(x), whether f(x)#0. 

The integration problem is to decide, given an R-elementary 
function £(x), whether there exists an R-elementary function g(x), 
such that g’ (x)®£(x). 

Richardson first showed that the identity problem reduced to 
solving the constant problem. Thus, if one restricts the R- 
elementary function to a domain where the constant problem is pre- 
sumably solvable (e.g., by allowing only the rational operations), then 
the matching problem is likewise solvable. 

He then showed that the matching and integration problems for 
the R-elementary functions is recursively unsolvable. . In order to 
proceed with our sketch of that proof, we shall require the following 
definitions. 


Hilbert's 10th Problem (The Diophantine Problem) 


Does there exist a procedure for determining whether the 
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equation P(x), Knig wee x70; where P is any polynomial with 


integer coefficients, has a solution where each x, is an integer? 


i 


Exponential Diophantine Problem 


Does there exist a procedure for determining whether the 


equation P(x); x ee, KX y Xe) 70) where P is any polynomial with 


2? ° n 


integer coefficients and where x is replaced by ork. (i.e., 


n+1 
P(x,)> tee Ky 2*1)=0) has a solution with each Xi5 i=l, ..., n an 
integer? 

Theorem (Davis, Putnam, Robinson) [14] 

The exponential diophantine problem is recursively unsolvable. 

The version of the Davis-Putnam-Robinson result that Richard- 
son used is as follows: 
Theorem A There exists a polynomial Q(y, Kyo ocees Xp 2*1y such 
that the problem of determining whether for each integer value of y 
there exist integer solutions Kprcees KH to the equation 
Qty, Kyo eres X > 2*1)=0, is recursively unsolvable. 

Hilbert's 10th problem has not yet been decided although it is 
suspected that the problem is recursively unsolvable as well. 

Let us now proceed with Richardson's argument. 


Consider the polynomial Q of Theorem 1. Let the x; be real 


numbers. Then, if the equation I 


2 2 
(1) z sin'mx, + Q (ys Xr ves Xs 2*1) = 0 
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possesses real-valued solutions for an integer value of y, then the 
x, must be integers, and if Q possesses integer solutions, equation I 
certainly has real solutions. 

Note that since each term in I is real-valued, the'bum of the 


squares'' device forces each term to be zero. Since sinn x, = Oo x 


i 
is an integer, the x. must all be integers. This illustrates a con- 
cept we shall call forcing. Forcing will be frequently used in this 
appendix. The term z gin’ x x, forces Q to possess integer solu- 

isl 
tions. The use of n and sin x in this manner was foreshadowed by 
Tarski [ 61). 

The next step is to show that there exists and R-elementary 
function f(y, Xypoorees x) such that f(y, Kyo orees x < 1 for a given 
integer y and for some real x, if and only if Qvy, xT > ae 2*f) 20 
for some integer values of the “Fs and for the same integer value of y. 


Richardson shows that we can take f(y, x eer x) to be of 


12 


the form 


Ss we 4 2 XK] 
AC), x sin AX; KG; Xpo tees x) +Q Cy, Xpo ters Xs 2°°2) 


i=l 


where A is a large R-elementary function of n and each K. is a 
suitably chosen large R-elementary function of its arguments. In this 


form f is an R-elementary function. The proof that f has the desired 
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property utilizes an argument based on the consideration that if f 
is sufficiently close to 0 in value, let us suppose that 


i be close to the integer, 
Ry. 
2°*) < A®* What is desired is 


to force 2 to have the value 0 at the xfs Since Q is continuous in 


£(y, X), X), +++, %,) S$ 1, and let each x 
x*, say, then Q(y, Xp Xs wes x 
its variables (it is a polynomial in them) and moreover has integer 
values for integer arguments (the coefficients are integers), what 

is necessary is that the derivative of 2 is sufficiently small so 

that Q does not materially change its value on the interval between 
x, and x¥. For this purpose the K, which are based on the partial 


derivatives of Q are forced to be small as well. This is done by 


requiring sin x x x’ s pee 


ivi A(n)° 

Now Richardson shows that one can obtain a coding which re- 
duces the problem for the n variables Xi of Q to a single variable 
x. He obtains a function G(y, x) such that G(y, x) <1 for real 


x (vy e&0)(G(y, x) <6) “ q real x) 

f(y, Xpr ress x Sl “ay, xt; ieey xx, 2*f) = 0 for some integers x*. 
The coding is 
x, = h(x), x) =h(g(x)), x, = h(g(e(x))), --- 

where h(x) = xsinx, g(x) = xeinx®. 


Richardson now uses the log |x| function to obtain a decision. 


Consider the following equations: 
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1 ; 
| =e og |x| thus the absolute value function is R-elementary. 


x-y = xrtler., this subtraction has value 0 if y=x. 


Min(y,x) = y“(y-x), the minimum function restricted to non- 
negative values. 

Now if G(y,x) s 1 for some real x and integer y, then 
G(y,x) < # for some real x by the e case above, and for this x, 
2-2G(y,x) > 1. Thus, min(1, 2-2G(y,x)) = 1 for some real x. If 
G(y,x) > 1 for all real x, then for all real x,min(1,2*2G(y,x)) = 0. 
By the continuity of G which is preserved either min(1, 2*2G(y,x))=1 
for some interval of values on the real axis for x and for aq 
fixed integer value of y, or min(1, 242G(y,x)) = 0 for all real x. 

Now if we let M(y,x) = min(1, 2-2G(y,x)), then the question of 
deciding whether M(y,x) is identically 0 is equivalent to deciding 
whether Q(y, xX, «++, > 2*1) = 0 has integer solutions and is thus 
recursively unsolvable. M(y,x); we Hoke’, is R-elementary. 

The above is a sketch of the proof of the recursive unsolvability 
of the matching problem. The recursive unsolvability of the integra- 
tion problem is obtained as follows: 


Consider 
a8 
S M(y,x)e” dx 


If M = 0 for some integer value of y, then the integrand is 0 


and possesses a solution (e.g., 0). If M# 1, on some interval then 


hla aE il I Aa mea ARC RS Vln a i aT a Ra OR I DO a i i a OT RO a aie ae ne cl ae a nella ata be Rll 
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the integrand is equivalent to ex? 


which possesses no elementary 
solution on any interval, as is well-known. Hence, the integration 
problem for R-elementary functions is unsolvable since one cannot 
tell whether M = O. 

This completes the sketch of Richardson's proof. As was seen, 
the decision step in the matching problem necessitated the use of 
the absolute value function. Caviness argues that either the abso- 
lute value function or the constant (used in sin x x and needed 
to assure a zero value on integer arguments) are the culprits in 
allowing Richardson's results to hold. The constant x should not 
be too surprising in the context since there are many problems re- 
lated to the constants e and n which are not yet solved (note 


inx -inx 
e -e ) 
2i . 


For example, it is not known whether 
e+n is a rational number. 

We should note that the absolute value function arose when we 
considered only one of the infinite number of inelenea to the log 
function. For example we can obtain the absolute value function by 
considering xe to possess only one solution. If we were to 
evaluate each of the values of an R-elementary function and were to 
consider f(x) to be equivalent to 0 if it were O for each of its 
values, then one might obtain a more tractable problem. One would 


still be left with ticklish problems regarding the constants e and x. 


These. one might suppose are not very interesting from a practical 
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complex coefficients) if and only if p is an integer. 


Theorem 1 

The exponential diophantine problem (Theorem A) is equivalent 
to the problem of determining whether, for integer values of y, the 
system of differential equation s has particular solutions which 
are rational function in x. 


(Hence, the latter problem is recursively unsolvable) 


dp, 
a) res =O, iml, ..., n 
dy P, (Pp, tl) 
i ii 
(s)  b) = +P ale, tel, sean 
2 i 
dz 2 YQ y; Pp, see Py? 2P1) 
c) at? * l-——>. 
x x : 


Proof. Suppose S has such a set of solutions for a given integer 
value of y. 
By a) each Py is a constant. 


By b) and Theorem B each Pi is an integer. 
Pl 
ay, Se 2 -) = 0 by c) for y an integer. 


This is so since by a) and b) Q is a constant. Thus, for z to 
have a particular solution which is a rational function, ~ qe aq (qt) 


for some integer q. But q(qtl) 2 0 for integers q and -q’s 0 since 


Pl 
Q is integer valued. Thus, Q{y, Pye cere Pps 2 “) = 0 for integer 
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values of Pyo ters Poe 

Suppose Q did possess integer solutions c; for some integer 
value of y, then by fixing each Py to be the corresponding Ci we 
obtain a set of rational solutions for §. 

Theorem B has a corollary which states that the differential 
equation JI has a general solution which is a Liouville function if p 
is an integer. 

Theorem 1 can, therefore, be extended to show that the problem 
of determining whether systems of differential equations of the 
form S have solutions which are Liouville functions is recursively 
unsolvable. 

Let us consider the diophantine analogue of the system S (i-e., 
no exponentiation in Q). We now have a system of polynomial equa- 
tions with integer coefficients. The solutions of such systems of 
equations is in the domain of differential algebra (see Kaplansky [31]). 
Theorem 1 leads to the result that Hilbert's 10th Problem reduces 
to a decision problem in differential algebra. 

Let us now consider the problem of determining whether a 
differential equation f(x, z, z', ..-, 2) = 0 has a solution z(x) 
where z and all its indicated derivatives are real-valued functions 


of x. 


More precisely consider 


170 


n 

gly, x» Zs ery zi )) 

2 J 2 MI eee 

= 2 +Q°(y, Wy> Woo sees Wis 27) + a sin’n w, 

= 0 

In g, y is an integer, x is the independent variable and is 


real, z is the dependent variable and the w, are defined as follows: 


“yn «6 (rl)! 

7 26072) _ xz) 
“n-1 (n-2)! 

) ae sayg (BD, (2-1) 
Wi =gzg- xz! + at eee (-1)@ Ge 


Theorem 2 The problem of deciding whether 
(n) 


gly, X, Z, 2', «6.5 Z ) =o has a real-valued solution which 


possesses n real-valued derivatives is recursively unsolvable as 
y varies over the integers, 
Proof. Let y be fixed. 


Suppose g has such a real-valued solution z(x). Since we are 


(n))2 


dealing only with real-valued functions the term (z forces 


(n) 


Zz = 0 and thus z must be a polynomial of degree (n-1) at most. 


-1 
Each w, was so chosen that if z =a x + ag» then Wi =a. 


i a » Since 
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sin x wy = 0, a, is forced to be an integer. Moreover, since 


wi 


Qty, Wis Wor tesa 2 ) = 0, Q must possess a set of integer solu- 
tions wis ree 
xX) : 
Suppose Q(y, Kyr sets Kis 2 ~) = 0 has solutions x= 4), 
: n-1 
a, integers. Then z(x) = av-1* +... + a) is a solution to g=0. 


The statement of Theorem 2 is too general to make it a 
satisfying decision problem since the set of all real-valued 
functions with real derivatives is not computable. The theorem 
would hold for any computable superset of functions of the set of 
polynomials of degree n with integer coefficients. 

Theorem 2 seems to indicate the concept of a real-valued 


solution to a differential equation is quite elusive. 


APPENDIX C . SS 


SIN'S PERFORMANCE ON SAINT'S PROBLEMS 


As an experiment for testing SIN's performance, we attempted the 
86 problems attempted by SAINT and reported in Slagle's thesis. SAINT 
integrated 84 our of these 86 problems and announced failure to integrate 
x V1 +x and cos /x. Slagle reports that SAINT solved the 84 problems 
with an average time of 2.4 minutes (144 seconds). SIN solved all 86 
problems with an average time of 2.4 seconds. This average becomes 1.3 
seconds when one discounts the cost of chaining. Chaining occurred on 
22 our of the 86 problems. Chaining is considered to take 4.5 seconds 
in this accounting. That time appears to be a minimum bound for the 
operation. In order to determine the time required by SIN to solve a 
problem, we used the execution time reported by CTSS. The swap time in 
CTSS is ignored here. 

Over half of the 86 problems (more precisely 45) were completely 
solved by SIN's first stage. These problems were solved with an average 
time of 0.6 seconds. Of the remaining problems only two required the 
Integration-by-parts routine (i.e., x cos x and cos /x - the latter gene- 
rates the ‘iibproviea {oy cos y dy}. Two routines were added to SIN in 
order to solve the definite and double integrals among the 86 problems. 
These routines call SIN to perform the integrations indicated and make 
appropriate substitutions at the upper and lower bounds. 

Below we list problems for which SAINT results are available and 


the comparative results for SIN. 
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SAINT time SIN time 
Problem in seconds in seconds 
2 
[ 2 ax 1.8 0.20 
1x 
és 2t 
Ene SRE 1080 9.18 
1+sec t - 3 tant 
i x 126 0.87 
sec x 
2 +1 
Ss ax 102 5.87 
Vx 
x 
f dx 
Veit in 5 =e 9.68 
J sin’x cos x dx 120 0.33 
J 2 2 
(sin’x + 1)” cos x dx 228 2.48 
x 
e- dx 
i i 4 eX 102 0.28 
J 2x 
Tacs + ox dx 222 6.23 
} —1+— « 120 9.78 
1 - cos x “* ° 
x 
3 2 
gtan x sec x dx 144 0.47 
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discount 


for chain 


4.6 


1.3 


5.2 


1.7 


5.3 


Notes 


Fastest problem 
solved by SAINT, 
integrated by table 
look up in IMSLN 


Longest solution 
time in SAINT. 

9 subgoals in 
SAINT, 1 in SIN 


7 subgoals in 
SAINI, 3 in SIN 


3 subgoals SAINT 


1 SIN 


14 subgoals SAINT 
1 SIN 


2 subgoals SAINT 
0 SIN 


Problem — 
1 
J log x dx 
zx 
6 


9°" x cos x dx 


f log, (2 + 3x7)dx 


SAINT time 


132 


156 


576 


360 


660 


510 


390 


in seconds 
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SIN time 


in seconds 


0.70 


0.30 


10.1 


8.25 


8.77 


7.92 


7.20 


discount 


for chain 


5.6 


3.7 


4.3 


3.5 


2.7 


a eT it 5 I Bi ae as a a eG 


Notes 


Largest speed 
ratio between 
SIN and SAINT 


Longest solution 
in SIN. 

13 subgoals SAINT 
1 SIN 


4 subgoals SAINT 
1 SIN 


13 subgoals SAINT 
2 SIN 


10 subgoals SAINT 
1 SIN 


10 subgoals SAINT 
1 SIN 


The last 3 problems were solved by SAINT in 540, 318 and 210 seconds 


respectively after an entry was added to SAINT's table which was used in 


the solution of these problems. 
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In order to fully account for the effect of garbage collection the 
problems were run in large batches. Thus garbage collection time was 
distributed over the set of problems. Garbage collection time probably 
accounts for less than 20% of the total time in SIN. 

We should note some of the reasons for the time difference in the 
results of SAINT and SIN. SAINT was run on the 7090 and SIN on the 7094. 
This accounts for about 40% of the gain (2.18 vs. 2.00 microseconds in 
the cycle time and overlapped instruction execution in the 7094). The 
single major difference in the time is due to the fact that SAINT ran 
mostly interpreted (a major exception being the simplifier), and SIN was 
run mostly compiled. Compilation is usually considered to gain a factor 
of 20-30 in the speed of the program. We tested some problems with SIN 
being executed completely interpretively. We noted an average speed loss 
of a factor of 15. However none of the problems ‘which were run inter- 
pretively included problems which required chaining. Thus we were unable 
to run some of the more complex problems in the set interpretively. 

By taking these factors into account we note that SIN would only 
run about three times faster than SAINT on the average when both are 
executed under optimal conditions. The reason for the relatively small 
ratio in SIN's favor we believe is because most of the time spent in SIN 
in solving the harder problems in the set is spent in algebraic manipu- 
lations (e.g., simplifications). Algebraic manipulation in SIN is not 
materially faster than it is in SAINT. Though the analysis performed in 
SIN yields a very direct solution, the total time spent to obtain the 
solution is still significant. Hence the contrast with SAINT in regard 


to total solution time is not very great. 
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APPENDIX D 
Solution of Problems Proposed by McIntosh 


Professor McIntosh (National Poleytechnic Institute of Mexico) 
required the solution of eleven nontrivial integration problems for 
a physics paper that he was writing Bs) | ‘He found the solution to 
these problems in Petit Bois' table. He also asked us to solve 
these problems using SIN. The problems involved variable coefficients 
in a square root of a quadratic which the version of SIN current at 
that time was not equipped to handle. Although we had intended to 
add the variable coefficient capability to Method 5, it was not 
needed for the SAINT experiment described in Appendix C. We rewrote 
Method 5 to account for variable coefficients. Interestingly enough 
this was not sufficient for a satisfactory solution of the problems 
since Professor McIntosh required that the output be in terms of 
the arcsin function. In some cases the transformations proposed 
by Method 5 yielded an answer in terms of the log function. To 
force the arcsin result a further method was added. Thus if the 


integral was of the form 


| ae Seer 


x Vax +bx+c 


the substitution y= 4 was made. This substitution rids the 


denominator of the factor x. With these modifications SIN was able 


to solve all eleven problems. In the solutions obtained by McIntosh 
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we noted some discrepancies from solutions obtained by SIN. It 
should be noted, however, that McIntosh was only interested in 
the coefficient of the arcsin terms and not in the argument. ALI 
the errors were minor and occurred only in the arguments of the 
arcsin function. 

Important lessons are to be obtained from this experiment. 

It is quite likely that other users of SIN will have similar 
requirements regarding the form of the output. SIN should there- 
fore be modified so that FORM can accept. simple descriptions of new 
substitutions written, say, as a SCHATCHEN and REPLACE rule. 

An examination of the eleven problems will indicate that a 
great deal of SIN's machinery was involved in solving these 
problems. Thus it would appear that a program such as SIN is more 
useful than a special purpose integration routine written for 
solving just this set of problems. Such a special purpose program 
will require so much machinery as to make it uneconomical. 

Finally we should note that this experiment points out the ee 
for further work on methods which transform algebraic integrands. 
The method we introduced to force the arcsin result also decreased 
the labor involved in the solution and should be normally available 


in SIN. 
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McIntosh Problems 


Problem Constraints 
f dr 
1) Jy /tHrt - oF H>0 
dr 
2) ) H>0 
roar? - & - e 
dr 
3) f ; 7 H > 20°K 
rv 2Hr - of - 2Kr 
f dr 
4) Je Jone” - a? - ce? - xr’ 
Hw > 2 + e) K 
5) I dz K2 + 2H” > 0 
, ry 2Hr - a - 2Kr 
6) I dr 
r/2kr - a - € * 2Kr 
K2 + 2(0% + c*)H> 0 
rdr 
ie | Fae = ee 
8) i r dr 


Answer equivalent to 


1 a 
"a arcsin J2R r 


2H x 
L resin Hr _- of 
2a 2 
rVvH - 
l ur? = Oa 62 
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Problems Constraints Answer equivalent to 
9) { = Ee > 2Ka? ee ee HE 
2Er tQ - 2Kr OPK E Ka 
10) [ r_dr 
2Er - @ - € - 2Kr 
2 2 2 1 Kre -—£E 
EV s 2K(a + €°) ara arcs SE 
2v 2K fee - 2K(a +e) 


K > 0 


2Er +K 


arcsin 
VK - 2EQ 


APPENDIX E 
AN EXPERIMENT WITH SOLDIER 


As an experiment for testing the effectiveness of the 
differential equations routines we attempted to solve the review 
problems appearing in pages 54-56 of “Applied Differential Equations" 
by Spiegel [60]. This text was chosen for sentimental reasons since 
it was the book through which we first learned methods for sotving 
ordinary differential equations. The methods described in Chapter 6 
were mostly influenced by Ince's "Integration of Ordinary Differential 
Equations" [27], and Kamke's "Differentialgleichungen" [30]. As 
it turns out the methods in Spiegel were quite similar, which is not 
a surprising fact. However, there were some differences and these 
will be pointed out below. 

Briefly, the results of the experiment were as follows: Of the 
80 problems in pages 54-56 of the book, 4 involved second and higher 
order equations (i.e., y", y'''). These problems were not attempted 
since SOLDIER had no machinery to deal with them. Thus the number of 
problems actually attempted was 76. Of the 76, SOLDIER satisfactorily 
solved 67 problems with an average time of 6.6 seconds. Discounting 
the cost incurred by chaining (chaining occurred on 26 of these 66 
problems), the average time was 4.3 seconds. Two problems were com- 


pletely reduced to integration problems, but were not integrated by 
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problems were not solved at all. An examination of the result re- 
ported by SOLDIER for one of the problems (i.e., 51) indicated a 
misprint in the book. hg ea bores our timing infotuation is based 
on the report by CTSS of the execution time of the program. 

The system on which this experiment was carried out had the 
following characteristics: SCHATCHEN, SCHVUOS, FORM, REPLACE, SOLDIER, 
and all the solution methods for differential equations were com- 
piled. A few integration methods, especially the Derivative-divides | 
method, were also compiled. The rest of the integration methods were 
run interpretively. This accounted for a noticeable increase in 
solution time when one of the integration subeteb leas required a 
solution method in stage 2 or 3 of SIN. As was the case in the ex- 
periment reported in Appendix C, the 76 problems were attempted in 
large batches (about 15 at a time) so that the effects due to garbage 
collection were fully considered. 

Below we shall describe on the performance of SOLDIER on some 
of the more interesting fully solved problems. We shall then describe 


each of the 9 problems which it failed to solve fully. 
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Representative Solved Problems 


The largest number of integrations needed to solve one of the 


67 problems was 3. This was achieved by problem 69 among others. 


(69) (eo +x43)y' = 1 or (e4x+3)dy - dx = 0 


This problem is solved by one of the multiplier methods (Chap- 


ter 6, Method 3) 


o~ 
' 
a 
— 
il 
© 


Ml 


+ (1-0) -l, and -l is a function of y. 


Thus the first integral is 

J -l ay =-y 

The multiplier is ey resulting in the exact equation 
(ltxe %43e “yay - e dx = 0 

The second integral is 


i ~e ‘dx = -xe? ; 
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and the final integral is 
f (143e )dy = y-3e * 


The solution reported by SOLDIER is thus 


The solution in Spiegel is 
x = ye -34ce. 


This solution is equivalent to the one obtained by SOLDIER. 
This problem was solved in 5.2 seconds. 


The most complex solution was obtained as a result to prob- 


lem 73. 


(73) dy _ xt3y 


The final solution given by SOLDIER was 
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2 
log. + blog, (14327 + 22) - J2 arctan (+72 ) = Co 


The solution in Spiegel was 


2 — 
log, (x aekay 5 = 2,/2 arctan oe +c 


This problem was solved in 15.3 seconds and required a chain 
to the rational function package. 
The problem in which we discovered a misprint in the book's 


solution was problem 51. 
(51) y' = 3xt2y or y'-3x-2y = 0 


The problem is linear (Chapter 6, Method 1) and the first 


integral required is 
J -2dx = -2x 


The next integral is 
SOK ae) eof so ae 3 ) -2x 
i -3x e dx = ( 4 + > Xx e 
The final answer given by SOLDIER was 


2 Nous 
Co = ye 4 (242 xe ?* 
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The book's solution was 


This solution differed from SOLDIER's in that the sign of 
-2x 
the exponent of e is wrong. 
The answer was obtained in 9.0 seconds and required a chain 
to solve the second integral. 


The fastest solution time was obtained for problem 5. 


(5) (3-y)dx + 2xdy = 0, y(1) =l 


This problem is also linear. 


The first integral is 


Pk ge Sie 
re dx = 5 lo ox 
The next integral (after simplifying eo ll2 logex =) is 


laze 
2x2/2 vx 


The final result is 
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The book's solution is 


(G-y)> = 4x 


which is equivalent ot SOLDIER's except that the constant of 
integration was determined by using the initial condition. 


This problem was solved in 0.8 seconds. 
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The Nine Unsolved Problems 


Problems 48 and 75 were not solved primarily because SOLDIER 


had no machinery for factoring them. In these two 


dg pp a 

48 ee” 

(48) dp 4 

(75) e?*"Yay + ray =0 

problems what is needed is to recognize that ene = ata”: A 


powerful factoring routine would have yielded the result that both 
of these problems are separable. 


Problem 50 is also recognized to be separable . 


(50) (x+xcosy)dy - (y+sin y)dx = 0 


if one factors x+xcosy. When SOLDIER solved this problem it utilized 
one of the multiplier methods. 

The difficulties due to the lack of a general factoring or 
division routine which was pointed out in Chapter 6 is one of the 
outstanding problems which must be solved in order to achieve a 
powerful routine for solving differential equations. The rational 
function package which is not directly utilized by SOLDIER can 


factor polynomials and some more general expressions (e.g., x+txcosy 
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could be factored by it), however, it must be extended in order to 
recognize factorizations involving exponentials and logs. 
A similar difficulty to factoring faced the program in 


problem 65. 
(65) xy’ + y log x = ylog y + y 


This problem is easily solved by the homogeneous method if it 
is first transformed into 
xy' - ylog, 2 =y 
SOLDIER does not possess enough machinery to realize that this 
transformation can be effected. Method 8 of Chapter 6 which normally 
would have solved problem 65 without the log transformation failed 
because SCHVUOS could not simplify a quotient which arose in the 


course of the solution. 


Problems 47 and 64 were not solved because SOLDIER lacked a 


method given in Spiegel. 
2 
(47) xdy - ydx = x ydy 


(64) xdy - ydx = 2x"y*ay 


Spiegel suggested that one should watch out for frequently 
occurring combinations such as xdytydx or xdy-ydx. He gave a method 


which deals with some of these cases. In 47 he points out that by 
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dividing by - one obtains the derivative of pa on the left hand 

side and ydy on the right hand side. In 64 one obtains 2y*dy on the 
right hand side and once agatn the derivative of z on the left 

hand side. SOLDIER lacked this particular method and was unable to 
solve these problems. Once again Method 8 of Chapter 6 was applicable 
and did not find a solution due to problems in division. 


Another method lacking in the program is pointed out by prob- 


lem 57. 
ds 1 
(57) dt st+t+l 


Here the linear substitution u(t) = s+t+l would have left a 
separable equation. Also a reversal of the independent variable 
followed by multiplying out the denominator would have left the 


equation 


dt 
aa sttt+l1 


which is linear. The method of multiplying out the denominator is 


also useful in problem 17. 


4 
(17) y'= 2xy-y_ 
3x2 


SOLDIER solved 17 by dividing through the denominator and using the 


Bernoulli method. By multiplying out the denominator, the multiplier 
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method would solve the problem. 


Problem 22 was not solved by SOLDIER because the almost- 


linear method is not powerful enough. 


(22) (tan y - tan“y cos x)dx - xsec“y dy = 0 


The substitution u(x)=tan(y) results in the equation 
2 
(u-u cos x)dx - x du = 0 


which is Bernoulli. However, the almost-linear method checks only 
for the possibility that the resulting equation is linear and com- 
pletely misses the possibility that it is Bernoulli. 

Finally, two problems, 56 and 74, were not completely solved 


because SIN did not have powerful enough machinery. 


dl . 
(56) ae + 31 = 10sin t 
(74) y'cos x = y - sin2x 


In 56 the linear method generates the subproblem 
if soa? san t dt 


Without the Edge heuristic, SIN cannot integrate this problem. 
There was not enough room in the system to include the Edge heuristic 


(only 1500 words were left in free storage), so SIN failed to 
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integrate this problem. 

SIN failed to handle the integration problems needed in 74 
because it does not currently possess enough machinery for dealing 
with sin(2x) and cos(x) in the same integrand. As has been indi- 
cated in Chapter 4 some machinery for just this situation was 


designed but not fully implemented. 
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Modifications to SOLDIER 


Following the experiment reported above we made two changes 
to the methods employed by SOLDIER. First we added a simple factori- 
zation iolitiiie to Method 8 of Chapter 6. With this routine Method 8 
was able to solve problems 47, 64, and 65, as expected. 

In addition we added an indicator to SCHVJOS. When this 


are - ge? This 


indicator was on, SCHVUOS executed the rule e 
indicator was turned on in running Method 2 of Chapter 6 (Separable). 
Thus, problems 48 and 75 were solved as well. The use of indicators 
illustrates the approach toward simplification programs we had out- 
lined in Chapter 3. In that chapter we said that simplifiers should 
be considered as black boxes with strings attached. When a decision 
has to be made inside the simplification program, it can check to 
see whether it had been given an instruction regarding the choice to 
be made. 


These changes must be considered as stop-gap measures and not 


as solutions to the factoring problems which still remain in SOLDIER. 


APPENDIX F 


LISTINGS 


The listings of SIN and SOLDIER given below were produced by a LISP 
program written by Diffie of the MATHLAB project and modified by us. 
Listings of LISP programs are frequently printed by using the internal 
representation of the program. The listings of programs written in most 
other languages usually bear a close correspondence to the input form of 
the program. This need not be the case for LISP programs. The routine 
Edge which was not listed using Diffie's program is presented last. The 
listing of this routine may be used to guage the effect of Diffie's pro- 
gram, 

The listings of two recent LISP programs (i.e., Martin [ 37 ], Nor- 
ton [ 47]) are also available. One can use these listings to compare 
different styles of LISP programming. Norton accentuates the use of the 
PROG feature and his programs thus have a FORTRAN-like appearance. Mar- 
tin's style is richer and leans toward greater use of "pure'’ LISP. Our 


style is intermediate to these two styles. 
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SCHATCHEN 


DEFINE 
(CC CSCHATCHEN M2) 
(M2 (LAMBDA (CE P SPLIST) 
(PROG (ANS) 
(RETURN (COND ((NULL (M1 E P)) NIL) 
((NULL ANS) T) 
(T ANS) 2900) 
(M1 (LAMBDA (E P) 
(COND ((EQUAL E P) T) 
(CATOM P) NIL) 
CCATOM (CAR P)) 
(COND (COR (EQ (CAR P) (QUOTE PLUS)) 
(EQ (CAR P) (QUOTE TIMES)) } 
(LOOPP E P) ) 
(CEQ (CAR P) (QUOTE EXPT)) (ZEPOGW E P)) 
((EQ (CAR E) (CAR P)) CEACHP E PD) 
((OP (CAR P)) NEL) 
C(EQ (CAR P) (QUOTE COEFFT)) 
(COEFFPORT E P (QUOTE (TIMES 1 T))) ) 
((EQ (CAR PP) (QUOTE COEFFPT)) (COEFFPT E P T)) 
((EQ (CAR P} (QUOTE COEFFP)) 
(COEFFPORT E P (QUOTE (PLUS 0 T))) } 
((EQ (CAR P) (QUOTE COEFFTT)) 
(COEFFTT E (CADR P) T (QUOTE TIMES)? ) 
((EQ (CAR P) (QUOTE COEFFPP)) 
(COEFFTT E (CADR P} T (QUOTE PLUS)) } 
((EQ (CAR PY (QUOTE DVCOE)) (OVCOE E P T)) 
(CEQ (CAR P) (QUOTE ZEPOW)) (ZEPOW E P)) 
({AND (SETQ ANS (CONS NIL ANS)) (TESTA P E NIL)) 
(RESTOREL) ) 
; (T (RESTORE)) 9) 
(CATOM (CAAR P)) 
(COND ( (ATOM €) NIL) 
CCPROG2 (SETQ ANS (CONS NIL ANS)) 
(TESTA (CAR P) (CAR E) ED ) 
(COND ((OR (EQ (CAR E) (QUOTE PLUS)) 
(EQ (CAR E) (QUOTE TIMES)) } 
(COND ((LOOPP E 
(CONS {CAR E) 
{COR P) Dd) 
(RESTOREL) } 
(T (RESTORED) 9) 
(CAND (SETQ P (CONS (CAR Ed {CDR P))) 
(EACHP E P) ) 
(RESTOREL) ) 
(T (RESTORE)? 3) 
(T (RESTORE)) )) 
(T NIL) ))0)0)) 
DEFINE 
COCLOOPP (LAMBDA (E P) 
(PROG (X Z EE) 
(SETQ EE 
(COND T{NOT (EQ (CAR E) (CAR P))) 
(LIST (CAR P) €) ) 


Loop 


L5 


L8 


L2 


L17 
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L18 


L10 


Lil 


L12 


L13 


L14 
Lis 


L16 


L47 
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(T £€) 9) 
(SETQ Z P) 
(SETQ ANS (CONS NIL ANS}? 


(SETQ 2 (COR Z)) 
(COND ((NULL Z) 
(RETURN (COND ((NULL (COR EE)) (RESTORE1)) 
(T CRESTORE}) 3)0) 
(SETQ X EE) 


{COND ({( NULL (CDR Xd) (GO L17)) 
((OP1 (CAAR Z)) (GO L10)} 
((EQ (CAAR Z) (QUOTE EXPT)) (GO L14)) 
CUML (CADR X) (CAR 2)) (60 L2)) ) 


(SETQ X {COR X)) 
(GO LS) 


(SETQ ANS (CONS (CONS X (COR X)) ANS)) 
(RPLACO X (CODR X)) 
(GO LOOP} 


(COND ((NOT (EQ (CAR P) (QUOTE PLUS))) (GO L18)) 
((M1 0 (CAR Z)) (GO LOOP)) ) 


(RETURN (RESTORE}) 


(COND ({AND (EQ (CAR P) (QUOTE TIMES)} 
(M1 1 (CAR Z$) >? 
(GO LOOP) ) 
{T (RETURN (RESTORE))) } 


(COND ({(EQ (CAAR Z) (QUOTE COEFFT)) (GO 111) 
(CEQ (CAAR Z) (QUOTE COEFFP}} (GO £12) 
((EQ (CAAR Z) (QUOTE COEFFPT}} (GO L13)) 
(CEQ (CAAR ZJ (QUOTE COEFFTT)) (60 L16)) 
((EQ (CAAR Z) (QUOTE COEFFPP)) (GO L47)) 
CEQ (CAAR Z) (QUOTE ZEPOW)) (GO L141) 
(CEQ (CAAR Z) (QUOTE DVCOE)) (G0 £43)) 
(T (GO L15)) ) 


(COND ((COEFFPORT EE (CAR Z) (QUOTE (TIMES 1 NIL))) 
(GO LOOP) } . 
(T (RETURN (RESTORE)}) } 


(COND ((COEFFPORT EE (CAR Z) (QUOTE (PLUS 0 NILDD) 
(GO LOOP) ) . 
(T (RETURN. (RESTGRE})) ) 


(COND {(COEFFPT EE (CAR Z) NIL) (GO LOOP)? 
(T (RETURN (RESTORE))) } 


(COND ((ZEPGW (CADR X) (CAR Z}) (GO L2)) (T (G0 L8))) 


(COND ((LOOP EE (CDAR Z)) (GO LOOP)?} 
(T (RETURN (RESTORE?}} } 


(COND ({COEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) 
(GO LOOP) ) 
(T (RETURN (RESTORE))) ) 
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(COND (({COEFFTT EE (CADAR Z) NIL (QUOTE PLUS)? 
(GO LOOP) ) 
(T (RETURN CRESTORE))) ? 
L43 
(COND ({OVCOE {CADR X) (CAR Z) NIL) (60 LOOP)) 
{T (60 189) DODD 
DEFINE fs 
(( (COEFFPORT 
(LAMBDA 
(E P IND) 
(PROG (X Z EE) 
(SETQ ANS (CONS NIL ANS}) 
(SETQ EEE) 
(COND 
(CEQ (CAR IND) (QUOTE PLUS)} (GO L30)) 
((EQ (CAR E) (QUOTE PLUS)? (GO L31)) 
(CEQ (CAR E) (QUOTE TIMES)) (60 L32)) 
(SETQ EE (LIST (QUOTE TIMES) E)) 


(60 L2) : 

32 
(COND ({CADDR IND) (GO L2)) (T (GO L1))) 

L31 
(COND 

((NOT (CADDR IND)) (GO L1)) 
C(NULL (CDDR E)) (GO L2)) 
(T (GO L20)) } 

L30 
(COND ((EQ (CAR E) (QUOTE PLUS) (GO L35))) 
(SETQ EE (LIST (QUOTE PLUS) ED): 

(GO 2) 

L35 

(COND 

((NULL (CDDR E)) (GO L2)) 

((EQ (CAR IND) (QUOTE PLUS)) (60 L2)}) 
({{(CADOR INDI (GO L2)) 

(T (60 L219) ) 

L2 
(COND ((EQUAL E 0) (GO L7))) 

(SETQ Z (COR P)) 

LOOP. 

(SETQ Z (COR 2) 
(COND ({(NULL Z) (GO L7))) 
(SETQ X EE) 

Le 

(COND 

((NULL {COR XD) (GO°L10)3 ; 
((EQ (CAAR Z) (QUOTE COEFFTT)) (GO L16)): 
((EQ (CAAR 2) (QUOTE COEFFPP)) (GO°L17)) 
((M1 (CADR X) (CAR Z)) (GO L5)) } 

(SETQ X {COR X))° 

(GO L6) 

7) 
(SETQ ANS {CONS ICONS X (COR X)) ANS)? 
(RPLACO X {COOR x)) 

(GO LOOP1) 

L17 ‘ 
(COND ((COEFFTT EE (CADAR Z) NIL (QUOTE PLUS)) (GO LOOP1))) 
(GO £7)" 

L16 
(COND ((COEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) (60 LOOP1))) 

L7 
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(COND 
CONULL (COR EE)) 
(RETURN (COND (( TESTA (CADR P) (CADR IND) NIL) 
(COND ((CADDR IND) (RESTOREL)) (T CRESTORE2))) ) 
(T (RESTORE)? ))) 
C(NULL (CDDR EE)) 
(RETURN (COND ({ TESTA (CAOR P) (CAOR EE) NIL) 
(PROG2 (SETQ ANS 
(CONS (CONS EE (COR €E)) ANS) ) 
(PROG2 (RPLACD EE (COOR EE)) 
(COND U(CAODR IND) 
(RESTORE1) ) 
(T tRESTORE2)) 99)) 
(7 CRESTORE)) 990) 


L69 
(SETQ xX (COPY1 EE}) 
(COND ((NULL (TESTA (CADR P) X NIL)? (RETURN (RESTORE) )) 
CCCADDR IND) (RETURN (RESTOREL))) } 
(COND (CAND (CDOR'E) (EQ (CAR IND) (QUOTE PLUS))) 

{PROG2 (SETQ ANS (CONS (CONS EE (CDR EE)) ANS)) (RPLACO EE NIL}) )) 

(RETURN (RESTORE2)} : 

L10 
(COND (( NULL (M2 (CADR IND) (CAR Z))) (RETURN (RESTORE)))) 
(GO LOOP1) 

L20 
(RETURN (RESTORE )) 

ul 
(SETQ X EE) 

L3 
(COND ({NULL [COR X)) (GO L4)) 
((COEFFPORT (CADR X) P CLIST (CAR IND) (CAOR IND) T)} (GO L12)) ) 
(SETQ X (COR X}) , 
(60 L3) 

Ll2 
(SETQ ANS (CONS {CONS X (CDR X}) ANS)) 
(RPLACD X (CODR X)) 
(RETURN (RESTORE2)) 

L4 
(COND {CNULL (M1 (CAOR IND) P)) (RETURN (RESTORE}))) 
(RETURN (RESTORE2)) 3327) 

DEFINE 


CCUCOEFFPT (LAMBDA {E P IND) 
(PROG (2 22) 
(SETQ Z 
(COND ((EQ (CARE) (QUOTE PLUS)) E) 
(T {LIST (QUOTE PLUS) E)} 1) 
{SETQ ANS {CONS NIL ANS)) 
(SETQ ZZ. (CONS (QUOTE COEFFT) (COR P)}) 


L19 
(COND ((NULL (COR Z)) (GO L21)) 
CANULE (M2 (CADR Z) 2Z)) (GO L20)) ) 
L22 
(SETQ ANS {CONS (CONS Z (COR Z)) ANS)) 
(RPLACD Z {COOR Z)) 
(GO L19) 
L20 
(SETQ Z (COR 2}) 
(Go £19) 
21 
(SETQ Z 


(FINDIT (COND (CEQ (CAADR P) (QUOTE VAR#)) 


(EACHP {LAMBDA (E P) 
(PROG 
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(CAR {CDDADR P)) ) 
(T (CAADR P)) 9D) 
{COND ( (NULL Z) 
(RETURN (COND ((NULL (TESTA (CADR P) 
0 
NIL )) 
(RESTORE) ) 
CIND (RESTORE1)) 
(T (PROG2 (RESTORE2) 09) 19) 
CONULL (COR Z)) 
(RETURN (COND ((NULL (TESTA (CADR P) 
(CAR 2) 
NIL )) 
(RESTORE) ) 
(IND (RESTORE1)) 
(T (PROG2 (RESTORE2) 
(CAR Z) 9)99)) 
(SETQ Z {(SIMPPLUS Z)) 
(COND ((NULL (TESTA (CADR P) Z (QUOTE COEFFPT))) 
(RETURN (RESTORED) } 
(IND (RETURN (RESTORE1))) } 
(RETURN {(PROG2 (RESTORE2) 2)) ))) 
NIL 
(COND ((NGT (EQUAL (LENGTH E) (LENGTH P))) 
(RETURN NIL) )) 
(SETQ ANS (CONS NIL ANS)) 


EACHPL 


(ZEPOW (LAMBDA (E P) 
(PROG 


5 


L9 
L10 


L6& 


L7 


L6 


(SETQ E {COR E)) 

(COND ((NULL E) (RETURN (RESTOREL)))} 
CCNULL (M1 (CAR E) (CADR P}}) 
(RETURN €RESTORE)) )) 

(SETQ P (COR P)) 

(GO EACHPL) })) 


NIL 
(SETQ ANS (CONS NIL ANS)) 
{COND ((ATOM E) (GO L6))) 


{COND ({(NOT (EQ (CAR E) (QUOTE EXPT)))? (GO LBD? 
CCNOT (M1 (CADR E) (CADR P)Y) (GO LBD) 
C(NOT (M1 [TCADDR £) {(CAODR P))) 
(RETURN (RESTORE)) )) 


(RETURN (RESTOREL)) 


(COND ((AND (NOT (ML 0 (CADDR P))) 
(NOT (M1 1 (CADR P))) } 
(RETURN (RESTORED) )) 
(GO L9) 


(COND ({(NOT (M1 E (CADR P))) (RETURN (RESTORE)D)) 
CCNOT (ML 1 (CADDR P)}) (RETURN (RESTORE))) ) 
{GO L9) 


(COND C(NOT (M1 0 (CADR P))) CRETURN (RESTORE)))) 
(GO L9) 


(COND ({EQP E 1) {GO L10)) 
((EQP E Ob) (GO L7)) 
(T (GO L8)) 995 
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{LOOP (LAMBDA {E LP) 

{PROG (Z ¥ X) 
{SETQ ANS (CONS (QUOTE *#LOOP) (CONS NIL ANS))) 
(SETQ X LP) 

L5 
(SETQ Z E) 

L6 
{COND ((NULL (M1 (CADR Z) (CAR X))} (GO L10))) 
(SETQ Y (CONS {LIST X Z (COR Z)) Y)) 
(SETQ ANS (CONS (CONS Z (CDR Z)) ANS)) 
(RPLACD Z (CDOR Z)) 
(SETQ X {CDR X)) 
(COND (( NULL X) (RETURN (RESTORE2)))) 
(SETQ ANS (CONS (QUOTE *LOOP) ANS)) 
(GO L5) 


(SETQ Z (CDR 2Z)) 
(COND ((NOT (NULL (COR Z))) (GO L6)) 
C(EQUAL X LP) (RETURN (RESTORE)}) ) 
L8 

(SETQ X (CAAR Y))} 

(RPLACD (CADAR Y¥)} {(CADDAR Y)) 

(SETQ Z {CADDAR Y)) 

(SETQ Y (CDR Y)) 

(SETQ ANS (CDR ANS)) 

(RESTORE3) 

(GO L6) 3)))) 

DEFINE 
(CCRESTORE3S (LAMBDA NIL 
(PROG NIL 
Ll 
(COND {(NULL ANS) (ERROR (QUOTE RESTORE3))) 
C((NULL {CAR ANS)) CERROR (QUOTE RESTORE3))) 
((EQ (CAR ANS) (QUOTE *LOOP)) (RETURN NIL})} 
CCNOT (ATOM (CAAR ANS))) 
(RPLACD (CAAR ANS) (CDAR ANS)) 1) 
(SETQ ANS (CDR ANS)) 


(GO Li) 99) 
{RESTORE (LAMBDA NIL 
(PROG CY) 
(SETQ Y ANS) 


Ll 
{COND (€(NULL Y) CRETURN NIL)) 
((EQ (CAR Y) (QUOTE *LOOP)) 
(PROG2 (RPLACA Y (CADR Y)) 
(RPLACD Y (CODR Y)S )) 
(CNULL (CAR Y)) 
(RETURN (PROG2 (SETQ ANS (COR Y)) NIL))} ) 
CCNOT (ATOM (CAAR Y))} 
(RPLACD (CAAR Y) (COAR Y)) )) 
(SETQ Y {CDR Y))} 
(GO L1) ))) 
(RESTOREL (LAMBDA NIL 
(PROG (Y) 
L2 
(SETQ Y ANS) 
(COND ({NULL ANS) (RETURN T)) 
((NULL (CAR ANS}} 
(RETURN (PROG2 (SETQ ANS (CDR ANS)) T)) } 
((NOT CATOM (CAAR ANS))) (GO L3)) ) 
Ll 
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(COND C{NULL (COR Y)) (RETURN T)} 
CCNULL (CAOR Y)) 
(RETURN (PROG2 (RPLACD Y (COOR Y}) T)) ) 
((NOT {ATOM (CAAOR Y))) 
(PROG2 (RPLACD (CAAOR Y) (CDADR Y)) 
(RPLACD Y (CDOR Y}) )) 
(T (SETQ ¥ (COR YD)) ) 
(60 11) 
L3 
({RPLACD (CAAR ANS) (COAR ANS?) 
({SETQ ANS (CDR ANS)) 
(GO L2) ))) 
(RESTORE2 (LAMBDA NIL 
(PROG CY) 
(SETQ ¥ ANS) 
(COND ({NULL ANS) (RETURN T)) 
((NULL (CAR ANS)) 
(RETURN (PROG2 {SETQ ANS (COR ANS)) T)) }) 
ul 
(COND (CNULL (COR Y)) (RETURN T)) 
CLEQ (CADR YY (QUOTE #LOOP?)) 
{RPLACD Y {CDOR YI) } 
CUNULL (CADR YY} 
(RETURN (PROGZ (RPLACD Y (CDDR Y)) T)) 9D) 
(SETQ Y (COR Y))- 
(GO L1) 9?) 
(TESTA® (LAMBDA (ALA EXP LOC) 
(COND ({COND (EQ (CADR ALA) (quote FREE)) (FREE EXP)). 
((EQ (CADR ALA) (QUOTE NUMBERP)) 
- ({NUMBERP EXP) ) 
((EQ (CADR ALA) (QUOTE TRUE?) T) 
(T (APPLY (CAOR ALA) 
- TEINOTHEM (CODR ALA)) 
CALIST) 99) 
(COND ((NOT (MEMBER (CAR ALA) SPLIST)), 
({PROG2 (SETQ ANS 
(CONS (CONS (CAR ALA) EXP) 
ANS 3 
T)) 
(TT) 
(T NIL) DD) 
(FAUNDTHEM (LAMBOA (ARGS) (FINDTL ARGS ANS (CONS EXP NIL)))) 
(FINDTL (LAMBDA (X Y Z) 
(COND (CCNULL X) Z) 
CONULL YD 
(FINDTL (COR X) 
ANS 
(NCONC Z (LIST CEVAL (CAR X) CALIST)D)) 9) 
(CEQ (CAAR Y) (CAR XD) 
‘(FINDTL (COR X) ANS (NCONC Z (CONS (COAR Y) NIL))) ) 
(T (FINDTL X (CDR Y) 20) D990) 
DEFINE 
CCCOP (LAMBDA (FN) 
(MEMBER FN 
(QUOTE (PLUS TIMES 
EXPT 
SIN 
cas 
TAN 
LOG 
SEC 
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INTEGRAL 
ARCSIN 
ARCCOS 
ARCTAN ))))) 
(COPY1 (LAMBDA (A) (COND ((NULL A) NIL) (T (CONS (CAR A) (COPY] (COR AD)DD9D) 
CFINOIT (LAMBDA (A) 
(PROG (Y 2) 
(SETQ Y (CONS NIL ANS)) 


(COND ¢(NULL {COR Y)} (RETURN Z)) 
CONULL (CADR Y}) (RETURN Z)) 
((EQ (CAADR Y) A) 
(PROG2 (SETQ Z (NCONC Z (LIST (CDADR Y)))) 
{RPLACD Y (CDOR Y)) )) 
{T tSETQ ¥ (CDR Y})) ) 
(GO Ll) 99) 
(FREE (LAMBDA (A) 
(COND {(ATOM A} (NOT (EQ A VAR))) 
{T (AND (FREE (CAR AD) (FREE (COR ADD)? 0D) 
(OP1 (LAMBDA (A) 
(MEMBER A 
(QUOTE (COEFFPT COEFFP 
COEFFT 
ZEPOW 
COEFFPP 
COEFFTT 
- LOOP 9999) 
(COEFFTT (LAMBDA (EXP PAT IND OPIND) 
(PROG (RES Z) 
(SETQ ANS (CONS NIL ANS)) 
(COND ( (AND IND (NOT (EQ (CAR EXP) OPIND))) 
{SETQ EXP {LIST OPIND EXP)? )) 
(SETQ Z EXP) 
(SETQ SPLIST (CONS (CAR PAT) SPLIST)) 
Ll : 
{COND {(NULL (COR Z)) (GO L3)) 
((TESTA PAT (CADR Z) NIL) (GO L2)) } 
(SETQ Z (CDR Z)) 
(GO LL) 
L2 
(SETQ ANS (CONS (CONS Z (CDR Z)) ANS)) 
(SETQ RES (CONS (CAOR Z) RES)) 
(RPLACD Z (COOR 2)) 
(GO L1) 
3 
{(SETQ SPLEST (COR SPLIST))? 
(COND (RES (GO L4)) 
CCNOT (TESTA PAT 
{COND (CEQ OPIND 
(QUOTE PLUS) } 


NEIL )) 
(RETURN (RESTORED) 13 
(COND (IND (RETURN (RESTOREL)) 
(T (RETURN (RESTORE2Z))) 


—_ 


L4 
(SETQ RES 
{COND ((COR RES) (CONS OPIND RES)) 
(T (CAR RES)) )) 
(SETQ ANS (CONS (CONS (CAR PAT) (SIMP RES)) ANS)? 
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(COND (IND (RETURN (RESTOREL})) 
(T (RETURN (RESTOREZ))) 299) 
(TESTA 
{LAMBDA (ALA EXP 6) 
(PROG (Y 2 FUNC VAL) 
(COND ({NOT (EQ (CAR ALA) (QUOTE VAR#))) 
(RETURN (TESTA® ALA EXP NIL)) 1) 
(SETQ Z ({CADR ALA)) 
(SETQ ALA (CDOR ALAD) 
Loop 
(COND ((NULL 2) 
(RETURN (PROG2 (SETQ Y 
(COND (VAL (M1 EXP Y)) 
(T (TESTA® ALA 
EXP 
NIL 999) 
{COND ((NULL Y) NIL) 
(FUNC (SET (CAR ALA} EXP)) 
(Tv) 99) 
((EQ (CAR Z) (QUOTE SET)) (SETQ FUNC T)) 
4(EQ (CAR Z) (QUOTE UVAR)) 
{COND ((SETQ ¥ 
(CDR {SASSOC {CAR ALA) 
ANS 
(QUOTE NILL) 2?) 
{SETQ VAL T) ) 
{T NIL) ) 
((AND (EQ B (QUOTE COEFFPT)) | 
(EQ (CAAR Z) (QUOTE COEFFPT)) ? 
(SETQ ALA (CADAR 2}) 3) 
(SETQ Z (CDR 2)) 
{GO LOOP) 19))) 


SCHVUOS, REPLACE, DIFF. 


DEFINE 
(CCSIMPPLUS 
(LAMBDA 
CEXP) 
(PROG {Y IND Z WANS AB Al) 
(SETQ A 0) 
8 
(COND C{NULL EXP) (GO AA))) 
(SETQ Y (SIMP (CAR EXP))) 
(COND 
((EQ (CAR Y¥) (QUOTE PLUS)) (GO C)) 
CONUMBERP Y) (SETQ A (PLUS Y A))) 
(T (SETQ Z (CONS Y Z))) ) 
8B 
(SETQ EXP (COR EXP)) 
(GO B) 
c 
(COND ; 
CONUMBERP (CAOR Y)) 
(PROG2 (SETQ 2 (APPEND (CODR Y) Z)) (SETQ A (PLUS (CADR Y) Ad)? } 
(T (SETQ Z CAPPEND (COR Y) Z)4) ) 
(GO 6B) 
AA 


(COND 
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((NULL Z) (60 E1)) 
((NULL (CDR Z)) (GO EE)) 
((EQ (CAAR Z) (QUOTE TIMES)) (GO Ed) } 


H 
(SETQ Al 1) 
(SETQ IND T) 
(SETQ B (CAR Z)) 
(GO FF) 
E 
{COND (C(NOT (NUMBERP (CADAR Z2))) (GO P))) 
{SETQ Al (CADAR Z)) 
(COND {(NULL (CDDDAR Z)) (GO G))) 
(SETQ B (CDDAR Z)) 
{SETQ IND NIL) 
(GO FF) 
p 
(SETQ Al 1) 
CSETQ B (CDAR Z)) 
(SETQ IND NIL} 
(SO FF) 
G 
(SETQ B (CADDAR Z)) 
(SETQ ING 7) 
FF 
{(SETQ 2 (CONS (QUOTE PLUS) (CDR Z))} 
(SETQ Y 
{COND 
(IND (COEFFPT Z (LIST NIL (QUOTE (C NUMBERP)) B) NILY) 
(T (COEFFPT Z {CONS NIL (CONS (QUOTE (C NUMBERP)) 8)) NIL)) }) 
(SETQ Y (PLUS Al Y)) 
(COND 
((ZEROP Y) T) 
{(ONEP Y) 
(SETQ W (CONS (COND (IND B) (T {CONS (QUOTE TIMES) B))) W)) ) 
(IND (SETQ W (CONS (LIST (QUOTE TIMES) Y B) W)}) 
(T (SETQ W (CONS (CONS (QUOTE TIMES) {CONS Y B8)) Wh)) } 
(SETQ Z (CDR Z)} 
{GO AA) 
EE 
(SETQ W (CONS {CAR Z) W)) 
El 
{SETQ W (COND ((ZEROP A) W) (T (CONS A W)))) 
(RESTORE) 
(COND 
C(NULL W) (RETURN 0O)) 
(({NULL (COR W)? CRETURN (CAR W))) 
(T (RETURN (CONS (QUOTE PLUS) W))) )4)3)) 
DEFINE 
{(CSIMPTIMES 
(LAMBDA 
(eXP) 
(PROG (Y DIV ZWA Al B ZZ) 
(SETQ A 1) 
s) 


(COND ({NULL EXP) (GO START))) 
(SETQ Y €SIMP (CAR EXP))) 
(COND ((EQ (CAR Y) (QUOTE TIMES)) 
(COND €{NUMBERP (CADR Y)) 
EPROG2 (SETQ A (TIMES (CADR Y) AD) 
(SETQ Z {APPEND (CDOR Y) Z)) )) 


START 


FF 


JK 


JJ 
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(T CSETQ Z (APPEND (COR Y) 293) 9) 
((AND (NUMBERP Y) (ZEROP Y)) (RETURN 0)) 
CCNUMBERP Y) (SETQ A (TIMES Y AD). 
(T USETQ Z (CONS ¥ Z))) ) 
(SETQ EXP (CDR EXP)) 
(GO B) 


(COND (CAND (EQ (CAAR 2) (QUOTE PLUS)) 
(NULL (COR Z)) 
(NULL W) 
(NOT (ONEP A)) } 
{RETURN (PROG23 (CSETQ SIMPINO T) 
(TIMESLOOP A (CDAR 21) 
(CSETQ SIMPINO NIL) 129} 
(CONDO C{NULL Z) (GO E1)D) 
((NULL (COR Z)) (GO EE)) 
(EXPTSUM (RETURN (CONS (QUOTE TIMES) {CONS A Z)))) 
(CEQ (CAAR 2) (QUOTE EXPT)) (GO G)) } 


(SETQ Al 1) 
(SETQ B (CAR Z)) 
(GO FF) 


(SETQ B (CADAR Z)) 
(SETQ Al 
(COND (C(NUMBERP (CADDAR 2)) (CADDAR z)) 
(T (CONS (CADDAR Z) NIL)? )) 


(SETQ ZZ 2) 


(COND ((EQ (CAADR ZZ) (QUOTE EXPT)) (GO H)) 
C(M2 (CADR 22) B NIL) (GO 1d) ) 
(COND ((ANO QUOTINOD 
(EQ (CAR B) (QUOTE PLUS)) 
(EQ (CAADR 72) (QUOTE PLUS)) 
(SETQ Y (MATCHSUM] 8 {CADR ZZ))) ) 
(GO DIV1) 1) 


(SETQ ZZ (COR 22Z)) 


(COND ({CDOR 22) (GO K))) 
(GO M) 


(COND ((M2 (CADADR ZZ) B NIL) (GO L?)) 
(COND ({AND QUOTINOD 
(EQ (CAR 6) (QUOTE PLUS)) 
(EQ {CAR (CADADR 22)) (QUOTE PLUS)) 
(SETQ Y (MATCHSUM1] B {CADADR ZZ))) ? 
(GO O1v2) )) 
(GO JK) 


({RPLACD ZZ (CDOOR ZZ)) 
(GO J) 


(SETQ Al (COND ((NUMBERP Al) (ADD1 Al)) (T (CONS 1 A1)})) 
(GQ JJ) 


CSETQ Al 
{COND ( (AND {(NUMBERP Al) (NUMBERP (CADDAR (COR 22))}) 
(PLUS Al (CADDAR (CDR 22))) ) 
(T (CONS (CADDAR (CDR 2Z)) 
(COND {(ATOM AL) (LIST ALD) (T ALD) 290) 
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(GO JJ) 
M 
(SETQ Al {COND C(NUMBERP Al) Al) (T CSIMPPLUS Al)))) 
(SETQ W 
{COND ({NUMBERP Al} 
(COND ((ZEROP Al) WwW) 
CCONEP Al) (CONS B W)) 
(T (CONS (LIST (QUOTE EXPT) B AL) Wd) )) 
(T (CONS €LIST (QUOTE EXPT) B Al) W)) 3) 
(SETQ Z {CDR Z)) 
(S60 START) 
EE 
(SETQ W (CONS (CAR Z) W)) 
El 
(SETQ A 
(COND ({NULL W) A) 
({NULL {CDR wW)) 
(COND ((ONEP A) (CAR W)) 
(T (LIST (QUOTE TIMES) A (CAR W))) 1) 
(({ONEP A) (CONS (QUOTE TIMES) W)) 
{T (CONS (QUOTE TIMES) (CONS A W))) )) 
(COND ( (NULL DIV) (RETURN A)) 
(T (RETURN (SIMPTIMES (LIST (CONS (QUOTE TIMES) DIV) A)))) ) 
OV. 
(COND ((AND (NUMBERP Y) (SETQ A (TIMES A Y))) (GO I)) 
(CSETG OLV (CONS Y DIV)) (GO I)) ) 
DIV2 
(SETQ DIV (CONS (SIMPEXPT (LIST ¥ {CAR (CDDADR ZZ)))) DIV)) 
(GO L) ))))) 
DEF INE 
(CC CSIMPEXPT 
{LAMBDA 
(EXP ) 
(PROG (A B) 


(SETQ B (SIMP (CADR EXP))) 
(CSETY A (SIMP (CAR EXP))) 
(COND 
((EQP A Od {RETURN 0O)) 
(CAND 
(Ew {CAR A) (QUOTE EXPT)) 
(SeETQ B (SIMPTIMES (LIST B (CADDR A)))) 
(SETQ A (CADR A)) 
NIt ) 
((EQP B OF {RETURN 1)) 
(CEGP B 1) (RETURN AY) 
((cQP A 1) TRETURN 1)) 
COANG (NUMBERP A} (NUMBERP B)} 
(RETURN (COND 
CONGT EXPTIND) CEXPT A Bd) 
{{AND (FIXP B) (GREATERP B -1 
{T (LIST (QUOTE EXPT) A Bh) ) 
(CEQ (CAR A) (QUOTE TIMES)) 
(RETURN (CONS (QUOTE TIMES) (EXPTLOOP (COR A)))) ) 
CCAND EXPTSUM (EQ (CAR B) (QUOTE PLUS))) 
(RETURN 
{CONS 
{WUSTE TIMES) 
(MAPLIST {CDR B) 
{FUNCTIGN (LAMBDA (C) (SIMPEXPT (LIST A (CAR C))))9) D9) 


}) CEXPT A B)) 
y) 
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C(NGT (ATOM B)) 
(RETURN 
(PROG (Ww) 
(RETURN 
(COND 
((NOT (SETQ W 
(M2 
) 
(QUOTE (PLUS (COEFFT (C TRUEL) 
(LOG (81 TRUE) (A TRUE)) ) 
(COEFFP (& TRUE)) )) 
NIL ))) 
(LIST (QUOTE EXPT) A B) ) 
{{(NOT [EQUAL A (SUBLIS W (QUOTE B1)))} 
(LIST {QUOTE EXPT) A Bd ) 
(T 
(SIMPTIMES (LIST 
(SIMPEXPT (LIST (SUBLIS W (QUOTE A)) 
({SUBLIS W (QUOTE C)) )) 
CSIMPEXPT (LIST A (SUBLIS W (QUOTE E)))) 99999)))) 
(RETURN (LIST (QUOTE EXPT) A B)) ))) 
(EXP TLOOP 
(LAMBDA 
(Aa) 
(PROG23 
(CSETQ SIMPIND T) 
(MAPLIST A (FUNCTION (LAMBDA (C) (SIMPEXPT (LIST (CAR C) Bd)))? 
(CSETQ SIMPINO NIL) ))) 


(SIMP 
(LAMBDA 
CEXP) 
(PROG (Z) 
(RETURN 
(COND 
((ATOM EXP) EXP) 
(SIMPINO EXP) 
CONULL (SETQ Z (GET (CAR EXP) (QUOTE SIMP)))) 
(CGNS (CAR EXP) 
(MAPLIST (COR EXP) (FUNCTION (LAMBDA (C) (SIMP (CAR C))))) 0) 
(tea 2 (QUOTE SIMPTIMES)) (SIMPTIMES (COR EXP))) 
(CEQ Z (QUOTE SIMPPLUS)) (SIMPPLUS (COR EXP))) 
(CEQ 2 (QUGTE SIMPEXPT)) (SIMPEXPT (COR EXP))) 
(T (APPLY 2 (LIST (CDR EXP)) CALIST))) 299090) 
ATTRIb 
(PLUS {SIMP SIMPPLUS)) 
ATTRIB 
(TIMES (SIMP SIMPTIMES)) 
ATTRIB 
(exPT (SIMP SIMPEXPT)) 
OcFINE 
CCCSIMPLOG 
(LAMBDA 
{A} 
(PROG (B) 


CSETQ B (SIMP (CADR A))) 
(SETQ A (SIMP (CAR A))) 
{COND ((EQUAL A 6) (RETURN 1)) 
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((EQP B 1) (RETURN 0?) 
(EQ (CAR B) (QUOTE EXPT)) 
(COND ({EQUAL A {CADR B)) (RETURN (CADDR B))) 
(T (RETURN (LIST (QUOTE TIMES) 
(CAODR B) 
{LIST (QUOTE LOG) A (CADR BY) 1909) 
(T (RETURN (LIST (QUOTE LOG) & BID} 99200) 


ATTRIB 
(LOG (SIMP SIMPLOG)) 


DEFINE 
(CCSIMP TRIG 
{LAMBDA 
(ABC OD) 
(PROG (Y) 
{RETURN (COND 
(CEQUAL D B) C) 
((ATOM D0) (LIST A Dd) 
((SETQ Y¥ 
(COR USASSOC (CAR D> 
(GET A tQUOTE SIMPTRIG)} 
(QUOTE NILL) 99> 
CSIMP (SUBST (CAOR OP (QUOTE X) Y)) } 
{T (LIST A Dd) 9999} 
(CSIMPTRIG] {LAMBDA (A) (SIMPTRIG (QUOTE SIN) 0 0 (SIMP. (CAR ADDO) 1) 


ATTRIB 
(SIN (SIMP SIMPTRIG1}) 


ATTRIB 
(COS (SIMP SIMPTRIG2)) 


DEFINE 
CUCSIMPTRIG2 (LAMBDA (A) {SIMPTRIG (QUOTE COS) 0 1 (SIMP (CAR AD)ID90) 


DEFINE 
(CCTIMESLOOP 
(LAMBDA 
{A B) 
(CONS 
(QUOTE PLUS) 
(MAPLIST B 
(FUNCTION (LAMBDA (C) 
(SIMPTIMES (PROG23 (CSETQ SIMPIND T} (LIST A (CAR C}} (CSETQ SIMPIND NILDD 190930) 
(EXPAND 
{LAMBDA 
(a6) | 
(SIMPPLUS (MAPLIST B (FUNCTION (LAMBDA (C} (TEMESLOOP (CAR C) ADDD}) D)° 
(PROG2Z3 (LAMBDA (A 8 CI Bd? )? 


DEFINE 
C{CSIMPTAN (LAMBDA (A) 
(COND ((EQ (CAAR A) (QUOTE ARCTAN)}? (€SIMP (CADAR A})) 
(T CSIMPTRIG (QUOTE TAN} 0 0 (SIMP (CAR ADDDD 2D) 
CSIMPARCTAN (LAMBDA (A) : 
{COND ((EQ (CAAR A) (QUOTE TAN)) (SIMP {CADAR A)}) 
(T {SIMPTRIG (QUQTE ARCTAN} 0 0 {SIMP {CAR AD)D)) 9)90) 


ATTRIB 
(TAN CSIMP SIMPTAN)) 


208 


ATTRIB 
CARCTAN (SIMP SIMPARCTAN)) 


DEFINE 
C({(SIMPDIFFERENCE (LAMBDA {A) 
(SIMPPLUS (LIST (CAR A} 
(SIMPTIMES (LIST Si (CADR ADD) 9))) 
CSIMPQUOTIENT (LAMBDA (A) 
(SIMPTIMES (LIST (CAR A) 
(SIMPEXPT (LIST (CADR A) 72) y))) 
(SIMPMINUS (LAMBDA (A) {SIMPTIMES (LIST -1 (CAR A)))9) 9) 


ATTRIB 
(DIFFERENCE (SIMP SIMPOIFFERENCE)) 


ATTRIB 
(QUOTIENT (SIMP SIMPQUOTIENT)) 


ATTRIB 
(MINUS {SIMP SIMPMINUS)) 


ATTRIB 
(SIN (SIMPTRIG ((ARCSIN . X) 
(ARCCOS EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5E0) 
(ARCTAN QUOTIENT X CEXPT (PLUS 1 (EXPT X 23) O.5E0)) 19) 


ATTRIB 

(COS {SEMPTRIG ((ARCSIN EXPT (OIFFERENCE 1 (EXPT X 2)) 0.5E0) 
{ARCCOS . X) 
(ARCTAN EXPT (PLUS 1 (EXPT X 2)) -O.5E£0) ))) 


ATTRIB 

(TAN CSIMPTRIG (CARCSIN QUOTIENT X (EXPT (DIFFERENCE 1 (EXPT X 229 0-5E0)) 
(ARCCOS QUOTIENT (EXPT (DIFFERENCE 1 (EXPT X 2)9 045E0) X) 
(ARCTAN . X) 9)) : 


ATTRIB 
CARCSIN (SIMPTREIG (SIN . xX) (COS PLUS X (QUCTIENT PE 2))))) 


ATTRIB 
(ARCCOS (SIMPTRIG ((SIN DIFFERENCE X (QUOTIENT PI.2}) (COS ~. X)))) 


ATTRIB 
(ARCTAN (SIMPTRIG (( TAN « Xd))) 


DEFINE 
COCONILG (LAMBDA NIL (QUOTE (NTLIDDDDD 


DEFINE 
(CCSIMPARCSIN (LAMBDA (A) {SIMPTRIG (QUOTE ARCSIN) 0 O (SIMP (CAR A))))) 
{SIMPARCCOS 
(LAMBDA (A) 
(SIMPDIFFERENCE (LIST (SIMPQUOTIENT (LIST (QUOTE PI) 2)) 
(SIMPARCSIN (LIST Ab) 990) 
{ SIMPARCCOT 
(LAMBDA (A) 
CSIMPDIFFERENCE (LIST (SIMPQUGTIENT (LIST (QUOTE PI) 2)) 
CSIMPARCTAN (LIST Ab) 93999) 


209 


ATTRIB 
(ARCSIN (SIMP SIMPARCSIN)) 


ATTRIB 
(ARCCOS (SIMP SIMPARCCOS)) 


ATTRIB : 
(ARCCOT (SIMP SIMPARCCOT)) 


OEF INE 
CC CMATCHSUM1 (LAMBDA (ASUM BSUM) 
(PROG (Z W LENGTH MINLENGTH QUOT MINQUOT)} 
(COND ( (NOT (EQUAL (LENGTH ASYM) (LENGTH BSUM))) 
{RETURN NIL) 1) 
(SETQ Z (CADR ASUM)) 
(SETQ W (COR BSUM)) 
(SETQ MINLENGTH 1000) 


Loop 
(SETQ QUOT (SIMPQUOTIENT (LIST (CAR W) Z))) 
(SETQ LENGTH 
(LENGTH (CONDO ((EQ (CAR QUOT) 
(QUGTE TIMES) } 
(CDR QUOT) ) 
(T (QUOTE (NILD)) 39) 
(COND ({GREATERP LENGTH MINLENGTH}) (GO A))) 
(SETQ MINLENGTH LENGTH) 
(SETQ MINQUOT QUQT) 
A : 
(COND {(EQUAL MINLENGTH 1) (GO OUT))) 
(SETQ W (COR W)) 
(COND (W (GO LCOP))) 
OuT 


(COND ({(M2 BSUM 
(TIMESLOOP MINQUOT (CDR ASUM)) 
NIL } 
(RETURN MINQUOT) 1) 
(RETURN NIL) 9900) 


DEFINE 
CCCSIMPCOT (LAMBDA (X) CLIST (QUOTE EXPT) (SIMPTAN X) —1))3)) 


ATTRIB 
(COT (SIMP SIMPCOT)) 


DEFINE 
(({ (REPLACE (LAMBDA (DICT EXP1) 
(PRGG23 (CSETQ SIMPIND T) (REPLAC EXPL) (CSETQ SIMPIND NIL)? }) 
(REPLAC 
(LAMBDA 
(EXP) 
(PROG (Z1) 
(RETURN 
(COND 
CONULL EXP1) NIL) 
CCNOT (ATOM EXP1S) 


(COND 

(CEQ (CAR EXPL) (QUOTE EVAL)) 
(PROG2 . 
(SETQ ZL (EVAL (REPLAC (CADR EXP1)) (CALIST))?) 
(PROG23 


{CSETQ SIMPIND NIL) 
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(SIMP Z1) 
{CSETQ SIMPIND T) ))} 
(CEQ (CAR EXPL) (QUOTE QUOTE*#)} {CADR EXPI)) 
(T (PROG (21 W)) 
(SETQ Z1 (REPLAC (CAR EXP1))) 
(SETQ wl (REPLAC (COR EXP1))} 
(RETURN {COND ({AND (EQ Z1 (CAR EXP1)) CEQ W1 (COR EXP1))) 
EXPL } 
(T (SIMPL (CONS Z1 W1))) 30999) 
((NUMBERP EXPL) EXPL) 
(CSETQ Z1 (SASSOC EXPL DICT (FUNCTION (LAMBDA NEL NIL)))) 
(COR 21) ) 
(T EXP1) 1)))7) 
(SIMP1 (LAMBDA (EXP1) 
(COND 
CCATOM EXP1) EXP1) 
((NOT (GET (CAR EXP1) (QUOTE SIMP})) EXP) 
(CEQ (CAR EXPL) (QUOTE TIMES)) (SIMPTIMES (CDR EXP1))) 
((EQ (CAR EXP1) (QUOTE PLUS)) (SIMPPLUS (COR EXP1))) 
(CEQ (CAR EXP1) (QUOTE EXPT)? (SIMPEXPT (CDR EXP1))} 
(T (APPLY (GET (CAR EXP1) (QUOTE SIMP)) (LIST (COR EXP1)) CALIST))) 1)))) 


DEFINE 
(C(DVCOE 
(LAMBDA (E P IND) 
(PROG (X Y Z) 
(SETQ ANS (CGNS NIL ANS}) 
(CUND ((NOT (£Q (CAR E) (QUOTE TIMES))) 
(SETQ E (LIST (QUOTE TIMES) E)) )) 

(SETQ Z (CDR P)) 


LoaP 
(SETQ Z (CDR 2)) 
{COND {((NULL Z) 
(COND (( TESTA {CADR P) {(SIMP (COPY1 E)) NIL) 
(RETURN (COND (IND (RESTORE)? 
(T (RESTORE2Z)) 9D) 
(T (RETURN (RESTGRED)) JD) 
(SETQ X E) 
(GO LOOoP2) 
LOUOP1 
(SETQ X (CDR X))} 
LOOP 2 
(COND ( (NULL (COR X)) (GO L6)))} 
{CGND ((EQ (CAAOR X) (QUOTE EXPT)) {GO L1I}) 
COML (CADR X) (CAR Z)) (GO L2)) ? 
{GO LOOP1) 
L2 
(SETQ ANS (CONS (CONS X (CDR X)) ANS)) 
(RPLACD X (CDDR X)) 
(GO LOOP) 
Li 
(COND ({EQ (CAAR Z) (QUOTE EXPT)) (GG L3}) 
{(NOT (ML (CADADR X) (CAR Z))} (GO LOOP1)) ) 
(SETQ Y -1) 
L7 
(SETQ ANS (CONS (CONS X {CDR X)) ANS)? 
(RPLACD X 
(CONS (SIMP (LIST (CAADR X) 


(CADADR X) 
(LIST (QUOTE PLUS) 
(CAR (CCDADR X)) 
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Y ))) 
(CDOR xX) )} 

(GU LUOP) 

L3 
(COND C{M1L {CADADR X) (CADAR Z)) (G0 L5))) 
{GO LODPL}) 

L5 
(COND (€(M1 (CAR (CDDADR X)) (CADDAR Z)}) (GO L2))) 
(SETQ Y (SIMPMINUS (LIST (CADDAR 2)))) 
(GO L7) 

L6 
(CONC ((M1 1 (CAR Z))} (GC LOOP))) 
(SETQ E 

{CONS (CAR E) 
(CONS (SIMPEXPT (LIST (CAR Z) -1)) (COR E)) )) 
(GO LOOP) 3)))) 
DEFINE 
(CC OLEFL (LAMBDA (EXP VAR) (PROG23 {CSET SIMPIND T) (OLFF EXP) (CSET SIMPINO NIL))) ) 
COIFF 
(LAMBDA 
(EXP) 
(CONDO 


{(ATOM EXP) (COND ((EW EXP VAR) 1) (T O)}) 
(CEQ (CAR EXP) (QUOTE EXPT)) 
(COND 
(CFREE (CADDR EXP)) 
(SIMPTIMES (LIST 
(CADDR EXP) 
(SIMPEXPT (LIST ([CAOR EXP) (SIMPPLUS (LIST (CADDR EXP) -1)))) 
(DIFF (CADR EXP)) ))) 
({FREE (CADR EXP)) 
(SIMPTIMES (LIST 
EXP 
(SIMPLOG (LIST (QUOTE E) {(CADR EXP))) 
(DIFF (CADDR EXP)) 1)) 
(7 
CSIMPTIMES 
(LIST 
EXP 
CSIMPPLUS (LIST 
(SIMPTIMES (LIST 
(CADUR EXP) 
(DIFF (CADR EXP)) 
CSIMPEXPT (LIST (CADR EXP) -1)) 0) 
(SIMPTIMES (LIST (€SIMPLOG (LIST (QUOTE E) (CADR EXPH)) 
(OIFF (CADDR ExP)) J)D}IDDD)D 
(€EQ (CAR EXP) (QUOTE TIMES)) 
(SIMPPLUS 
(MAPLIST 
{CDR EXP) 
(FUNCTION (LAMBDA (Y) 
(SIMPTIMES (CONS (DIFF {CAR Y}} (CHOICE (CAR Y) (CDR EXP)))) 2)))) 
((EQ (CAR EXP) (QUOTE PLUS)} 
(SIMPPLUS (MAPLIST (COR EXP) (FUNCTION (LAMBDA (Y) (DIFF (CAR Y)) 
(T (APPLY (GET {CAR EXP) (QUOTE DIFF)) (LIST {CDR EXP)) {ALIST))) 
{CHOICE (LAMBDA (A B) 
(CUND (CEQ A {CAR Bd) (CDR BI) CT (CONS (CAR B) (CHOICE A (CDR BdY)II)) DDD) 


yyy) 
y)) 


OEFINE 
C({BIGOIFF (LAMBDA (A B) 
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(SIMPTIMES (LIST (DIFF (CAR A)) 
(SUBST (CAR A) (QUOTE X) Bd ))9¥)) 


DEF INE 
((COLFLOG (LAMBDA (A) 

(PROG NIL (SETQ A (COR A)) (RETURN (BIGDIFF A (QUOTE (EXPT X -1)))0) 0) 

(DIFSIN (LAMBDA (A) (BIGDIFF A (QUOTE (COS X))))) 

(DIFCOS (LAMBDA (A) (BIGOIFF A (QUOTE (TIMES -1 (SIN X}D)))) 

(DIFTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (SEC X) 2299)) 

(DIFSEC (LAMBOA (A) (BIGDIFF A (QUOTE (TIMES (SEC X) (TAN XDD0))) 
(DIFARCTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (PLUS 1 (EXPT X 20) -1)0))) 
(DIFARCSIN (LAMBDA (A) 

(BIGDIFF A (QUOTE [EXPT (PLUS 1 {TIMES -1 (EXPT X 202) -0-5E0))) ? 
(DIFCSC (LAMBDA (A) (BIGDIFF A {QUOTE (TIMES -1 (COT xX) (CSC XD))))) 
(DIFCOT (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -1 (EXPT (CSC XK) 29)9)) 
(DIFARCCOS (LAMADA (A) (MINUS (DIFARCSIN A)))) 

( DEFARCSEC 
(LAMBDA (A) 
(BIGDIFF A 
{QUOTE (EXPT {TIMES X 
(EXPT (DIFFERENCE (EXPT X 2) 1) 
0.5€0 ») 


) 
) 


-1 0009) 
(DIFARCCSC (LAMBDA (A) {SIMPMINUS (LIST (OITFARCSEC ADI})) 
(DIFINTEGRAL (LAMBDA (X) 
(COND (CEQ (CADR XI VAR) (CAR X)) ; 
(T (SIMP (LIST (QUOTE INTEGRAL) (DIFF (CAR X}) (CADR XD0)) 2909) 


ATTRIB 
CINTEGRAL (OLTFF DIFINTEGRAL)D) 


ATTRIB 
(SIN COTFF DIFSIN)) 


ATTRIB 
(CGS (OIFF OIFCOS)) 


ATTRIB 
(TAN (OIFF DIFTAN)) 


ATTRIB 
(SEC (DIFF OLFSEC)) 


ATTRIB 
{ARCTAN (DIFF OIFARCTAN)) 


ATTRIB 
(ARCSIN (DIFF DIFARCSIN)D) 


ATTRIB 
(LOG (OIFF OIFLOG)) 


ATTRIB 
(CSC {DIFF OIFCSC)) 


ATTRIB 
(COT (OLFF DIFCOT)) 


ATTRIB 
CARCCOS (DIFF DIFARCCOS)) 
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ATTRIB 
CARCSEC (DIFF DIFARCSEC)) 


ATTRIB 
(ARCCSC (DIFF DIFARCCSC)) 


DEFINE 


CC CEXPAND2 (LAMBDA {EXP) (PROG23 (CSET SIMPIND T) (EXPANOL EXP) (CSET SIMPIND NIL))) 


) 
(EXPAND 
(LAMBDA 
(EXP) 
(CIND 
{(ATOM EXP) EXP} 
(CAND (EQ (CAK EXP) (QUQTE EXPT?) 
(NOT (ATOM {(CADR EXP))) 
(INTEGERP (CADDR EXP)) 
(EQ (CAADR EXP) (QUOTE PLUS)) 
(GREATERP (CADDR EXP) QO) 
{LESSP (CADOR EXP) 6) ) 
(CXPANDEXPT (CADR EXP) {CADDR EXP)) ) 
(CEQ (CAR EXP) (QUOTE TIMES)) 
(COND ({CDDR EXP) 
(PRODEXPAND (EXPAND (CADR EXP)} 
(EXPANDL (CONS {QUOTE TIMES} {CDDR EXP))) )) 
{((COR EXP) (EXPANDL {CADR EXP})) 
({T NIL) )) 
(T (SIMPL (MAPLIST EXP (FUNCTION (LAMBDA (C) {EXPANDL (CAR C))))))) DD) 
(PRUDEXPAND (LAMBDA (A B) 
(COND 
CCNOT (GR (EQ (CAR A) (QUOTE PLUS)) (EQ {CAR Bd (QUOTE PLUS)))) 
(SIMPTIMES (LIST A B)) ) 
(ONOF (EQ (CAR A) (QUOTE PLUS))) (TIMESLOOP A (CDR B))) 
CCNOT (EQ (CAR B) (QUOTE PLUS))) {(TIMESLOOP 6 (CDR ADD) 
) 


(T CEXPAND (CDR AJ (CDR B))) 3))9) 
DEFINE 
({ CRATIONALIZE 
(LAMBDA 
{EXP} 
(PROG Cw) 
(RETURN 
(COND 
CCNOT CEG (CAR EXP) (QUOTE PLUS))) NIL) 
((SETQ 
W 
(M2 
EXP 
(QUOTE 
{PLUS 
(TIMeS 
(COEFFTT 
(Cc 
(F UNC TION 
{LAMBDA 
(Cc) 
{M1 
C 
(QUOTE 
(EXPT 


(AA (FUNCTION (LAMBDA (AA) 


Ma ee ae Ven eee eg Ne gee 
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(AND (NOT (EQUAL AA 1)) 
(NOT (EQUAL AA OD) 2))) 
(N CFUNCTION (LAMBDA (NP 
(AND (NUMBERP N) (LESSP N OD) DDDDDDDDDD 
(COEFFTT (8 TRUE)? ) 
{COEFFPT (A TRUE)? )) 
NIL )} 


TREPLACE W (QUOTE (TIMES (PLUS (QUOTIENT A C) B) CID) ? 
CT NILD 920000) 


FORM: SIN, DERI VATIVE-DIVIDES 


DEFINE 


CUCTRUEL (LAMBDA (A} (OR (NOT (NUMBERP A)) (NOT (ZEROP A) 
CINTEGERPL (LAMBDA (A) CINTEGERP (SIMPTIMES (LIST 2 AD) 
(VARP (LAMBDA (A) (EQUAL A VAR))) 

(FREEL (LAMBDA (A) (AND (FREE A) (OR (NOT (NUMBERP A) (NOT (ZEROP AD))))) 
C(FIXP1 (LAMBDA (A) (AND (NUMBERP A) (FIXP AD))) 
(MASTER (LAMBDA (A) 
(PROG NIt 
(FILEWRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE MASTER)} 
(FILEAPND 
(QUOTE MANOVE) 
(QUOTE LISP) 
(LIST (CONS (CAR A) (TRANSL (SIMP (COR AD)))) ) 
(CHAIN {QUOTE {(SAVE MOSES T) (R FULMAN MANOVE)))) 
(FILESEEK (QUOTE MANOVE) (QUOTE ANS)? 
(RETURN (SIMP (UNTR {(READ)))) 2990? 


DEFINE 
CC CFORM 
(LAMBDA 
(EXPRES) 
(COND 
(( FREE EXPRES) NIL} 
CCATOM EXPRES) NIL) 
(CMEMBER (CAR EXPRES) (QUOTE (PLUS TIMES))) 
CULAMBDA (L) 
(PROG (Y) 
Loop 
(COND 
(CSETQ ¥ (FORM (CAR L))) (RETURN Y)) 
C{NOT (SETQ L (COR Ld)) (RETURN NIL)? 
(T (GO LOGP)) ))) : 
(CDR EXPRES) 1) 
((MEMBER (CAR EXPRES) (QUOTE {LOG ARCTAN ARCSIN))) 
{COND 
(CUSETQ ARG 
(M2 
Exp 
{LIST 
{QUOTE TIMES) 
(QUOTE (COEFFTT (C RATSPRIME))) 
{CONS {CAR EXPRES) 
(COND (CEQ (CAR EXPRESS) (QUOTE LOG)) 
{CONS (CADR EXPRES) (QUOTE ((B RAT8)))) ) 
CT (QUOTE (€€8 RAT8)))) 39) 
NIL )) 
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(RATLOG EXP VAR (CONS (CONS (QUOTE A) EXPRES) ARG)) ) 


(T 

{PROG (Y Z) 
(COND 
((SETQ Y 


(FORM (COND ((EQ {CAR EXPRES) (QUOTE LOG)) (CADOR EXPRES)) 
(T (CADR EXPRES)) ))} 
{RETURN Y) } 
( (AND 
(EQ (CAR EXPRES) (QUOTE LOG)) 
(SETQ Z (M2 (CADOR EXPRES) C NIL) 
(FREE (CADR EXPRES)) 
{SETQ Y 
{M2 
EXP 
(QUOTE (TIMES (COEFFTT (C RAT8)) (COEFFTT (D ELEM))) } 
Nii 39) 
(RETURN 
( (LAMBDA 
(A BC D BASE) 
(SUBST 
EXPRES 
VAR 
CINTEGRATE 
CSIMPTIMES (LIST 
(SUBST 
(LIST 
(QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE EXPT) BASE VAR) 
A) 
B ) 
VAR 
c ) 
(LIST 
(QUOTE QUOTIENT) 
(LIST (QUOTE EXPT) BASE VAR) 
8B ) 
(SUBST VAR EXPRES D) )) 
VAR })) 
(COR (SASSOC (QUOTE A) Z)) 
(CDR (SASSGC {QUOTE 8B) Z) 
(CDR (SASSOC (QUOTE C) Y)) 
(CDR (SASSOC (QUOTE D) Y)) 
(CADR EXPRES) ))) 
(T (RETURN NIL)) 9)))) 
(COPTRIG (CAR EXPRES)) 
(COND 
CONOT (SETQ W (M2 (CADR EXPRESS) C NIL)}) (FORM (CADR EXPRES))) 
(T (PROG2 (SETQ POWERLIST T) (MONSTERTRIG EXP VAR (CADR EXPRES))}) 3) 
(CFIXP1 (CADOR EXPRES)) (FORM (CADR EXPRES))) 
(CFREE (CADR EXPRES)) 
(COND 
CCSETQ W 
(M2 
EXP 
(QUOTE (TIMES (COEFFTT (R RAT8)) CEXPT (BASE FREE) (P POLYP))) } 
NIL )) 
{CALLALGORT (SUBLIS W (QUOTE (R P BASE))) VAR) } 
((M2 (CADDR EXPRES) C NIL) (SUPEREXPT EXP VAR (CADR EXPRES))) 
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(T (FORM (CADDR EXPRES))) )) 
(CNOT (RATS (CAOR EXPRES))) (FORM (CADR EXPRES))) 
(CAND (SETQ W (M2 (CADR EXPRES) RATROOTFORM NIL)) 
(DENOMFIND (CAODR EXPRES}) ) 
(PROG2 (SETQ POWERLIST T) I[RATROOT EXP VAR (CAOR EXPRES) W)) ) 
CCNGT CINTEGERP1 (CADOR EXPRES))) 
(COND ((M2 EXP CHEBYFORM NIL) (CHEBY EXP VARD) 
(T (FORM (CADR EXPRES))) )) 
CCSETQ W (M2 (CADR EXPRES) D NIL}) 
(COND 
CCSETQ ARG 
(M2 
Exp 
(QUOTE (TIMES 
{EXPT (VAR VARP) -1) 
(COEFFTT (AA FREE)) 
(EXPT (SQ M1 D) -0.5E0) )) 
NIL )) 
CSIMP 
(SUBST 
{LIST {QUOTE EXPT) VAR -1) 
VAR 
CALGEB2 
(LIST 
(QUOTE TIMES) 
-1 
(REPLACE ARG (QUOTE AA)) 
(LIST 
(QUOTE EXPT) 
(SETQ Y 
(REPLACE ARG 
(QUOTE (PLUS (TIMES A (EXPT VAR 2)) (TIMES B VAR) C) ))) 
-0.5E0 )) 
VAR 
Y 
(REPLACE ARG 
(QUOTE (((QUOTE® C) . A) (CQUOTE* B) . Bd) (CQUOTE® A) . Cd) 9009)) 
(T (ALGEB2 EXP VAR (CADR EXPRES) WI) )} 
(CSETQ W (M2 (CAOR EXPRES) E NILDD 
(PROG2 (SETQ POWERLIST T) (ROGTLINPROD EXP VAR (CADR EXPRES) W)) ) 
((M2 EXP CHEBYFORM NIL) (CHEBY EXP VAR)) 
((NGT (M2 (SETQ W CEXPAND2 [CADR EXPRESS)) (CAODR EXPRES) NIL)? 
(PROG2 
(SETQ EXP (SIMP (SUBST W (CADR EXPRES) EXP))) 
(FORM (SIMP (LIST (QUOTE EXPT) W [CADDR EXPRES)))) )) 
C((SETQ W (RATIONALIZE (CADR EXPRES))) 
(PROG2 
(SETQ EXP (SIMP (SUBST W (CADR EXPRES) EXPI)) 
(FORM (SIMP (LIST (QUOTE EXPT} W {CADDR EXPRES))}} 2} 
(TO NIL) 9990) 


DEFINE 
CCCINTEGRATE 
(LAMBDA 
(EXP VAR) 
(PROG (Y ARG POWERLIST B WC DO E RATROOTFORM CHEBYFORM) 
(COND ((FREE EXP) {RETURN (SIMPTIMES (LIST EXP VAR))))) 
(COND : 
CCNOT (EQ (CAR EXP) (QUOTE PLUS})}) (GO D)) 
(T 


(RETURN 
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({SIMPPLUS (MAPLIST (COR EXP) 
(FUNCTION (LAMBDA (C) (INTEGRATEL (CAR C)))) 2999) 


ie) 
(COND ((SETQ Y (OIFFOIV EXP VAR)) (RETURN Y))) 
(SETQ Y 
(COND ((EQ (CAR EXP) (QUOTE TIMES)) (COR EXP)) (T (LIST EXP))) } 
(SETQ C 
(QUOTE (PLUS (COEFFPT (B FREE) (X VARP)) (COEFFPT (A FREE)))) ) 
(SETQ RATROOTFORM 
(QUOTE (TIMES 
(COEFFTT (& FREE)? 
(PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (8B FREE))) 
{EXPT (PLUS (COEFFPT (C FREE) (VAR VARP)) (COEFFPT (D FREE))) 
“1 900) 
(SETQ 
CHEB YFORM 
(QUOTE (TIMES 
(EXPT (VAR VARP) {RL NUMBERP)) 
(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) (EXPT (VAR VARP) (Q FREEL))) 
(COEFFP (C1 FREE)) } 
(R2 NUMBERP) ) 
(COEFFTT (A FREED) 19) 
(SETQ O 
(QUOTE (PLUS 
(COEFFPT (C FREE) (EXPT (X VARP) 2)) 
(COEFFPT (B FREE) (X VARP)) 
(COEFFPT (A FREE}) )}) 
(SETQ E 
(QUOTE (TIMES (PLUS (CQEFFPT {A FREE) (VAR VARP)) (COEFFPT (8 FREE))) 
(PLUS (COEFFPT {(C FREE) (VAR VARP)) (COEFFPT (0 FREE))) 39) 
Looe 
(COND 
((RAT8 (CAR Y}) (GO SKIP)) 
((SETQ W CFORM (CAR Y))) (RETURN W)) 
(T (GO SPECIAL)) ) 
SKIP 
(SETQ Y (CDR Y)) 
(COND CENULL YI 
(RETURN (COND ((SETQ ¥ (POWERLIST EXP VAR)) Y) 
(T (MASTER (CONS VAR EXP))) 293) 
{GO LOOP) 
SPECIAL 
{RETURN {COND 
C(NOT (M2 EXP CSETQ Y (EXPAND2 EXP)) NIL)) CINTEGRATE Y VAR)) 
(CAND (NOT POWERLIST) ¢{SETQ Y¥ (POWERLIST EXP VAR})) Y) 
((SETG Y (PARTS EXP VAR)) Y) 
(T (LIST (QUOTE INTEGRAL) EXP VAR)} )9)))9) 
DEFINE 


CCCRATS (LAMBDA (EXP) 

(COND C((FREE EXP) T) 
C{ATOM EXP) T) 
((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(AND (RAT& (CAOR EXP)) 

(COND ((CDDR EXP) 
(RATS (CONS {CAR EXP) (CODR EXP})) ) 
(TT) 29) 

({NOT (EQ (CAR EXP) (QUOTE EXPT))) NIL) 
((FEXP1l (CADDR EXP)) (RATS (CADR EXP))) 
(T NIL) 2907) i 


Ee ee ee ee ee ar eer 


218 


DEFINE 
COCINTEGRATE1L (LAMBDA (A) (INTEGRATE A VAR}))}) 


DEFINE 
CCCPOLYP CLAMBDA (EXP) 
(COND 
CCFREE EXP) T) 
CUATOM EXP) T) 
( (MEMBER (CAR EXP) (QUOTE {PLUS TIMES))) : 
(AND (POLYP (CADR EXP}) 
(OR {NULL (CODR EXP)) (POLYP {CONS (CAR EXP) (CODR EXP)))) 2) 
(CEQ (CAR EXP) (QUOTE EXPT)) . 
CAND 
CNUMBERP (CADDOR EXP)} 
CINTEGERP (CADDR EXP)) 
(GREATERP (CADDR EXP) 0) 
(POLYP {(CADR EXP)) )) 
(T NIL) 9D) 
(CALLALGORT 
(LAMBDA 
CA VAR) 
(PROG NIL 
CFILEWRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE SUPERALGORT)) 
(CFILEAPND 
(QUOTE MANOVE) 
(QUOTE LISP) 
(LIST 
CTRANSL (CAR A)) 
(TRANSL (SIMPTIMES (LIST (CADR A) (SIMPLOG (LIST (QUOTE E) (CADOR A)))) 9) 
VAR )) 
(CHAIN (QUOTE ((SAVE MOSES T) (R FULMAN MANOVE)))) 
(FILESEEK (QUOTE MANOVE) (QUOTE ANS)) 
(RETURN (SIMP (UNTR (REAO)))) 9900) 


DEFINE 
C4CSIN CLAMBDA (EXP VAR) (INTEGRATE (SIMP EXP) VAR)}) 


COPTRIG (LAMBDA (A) (MEMBER A (QUOTE (SIN COS SEC TAN CSC COT))))) 
(ELEM 


(LAMBDA 
(A) 
(COND 
(CFREE A) T) 
CCATOM A) NIL) 
C(M2 A -EXPRES NIL) T) 
(T CEVAL (CONS (QUOTE AND) 


(MAPLIST (COR A) (FUNCTION (LAMBDA (C) (ELEM (CAR C)99)) D 
NIG DDD) 


OEFINE 
((CFREE (LAMBDA (A) 
{COND ((ATOM A) (NOT (EQ A VAR)D) 


(fT (AND (FREE (CAR AD) (FREE (COR ADDI) 9D) 
({VARP (LAMBDA (A) (EQ A VAR)}) )) 


DEFINE 
CCCOEFINITE INTEGRAL 
(LAMBDA (EXP VAR LOWER UPPER) 
(PROG (Y) : 
CSETQ@ Y (PRINT CINTEGRATE EXP VAR))) 
(RETURN (SIMPDIFFERENCE (LIST (SUBST UPPER VAR Y) 
{SUBST LOWER VAR Y) )3}))) 
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(DOUBLEINTEGRAL 
(LAMBDA (EXP L) 


tPROG (Y) 
(SETQ Y 
(DEFINITEINTEGRAL EXP 
{CAAR L) 
(CADAR L) 


(CAR (CODAR L)) )) 
(RETURN (DEFINITEINTEGRAL Y 


{CAADR L) 
{CADADR L) 
(CAR (CDDADR L)) 3)))))) 
DEFINE 
(C CINTEGRALLOOKUP 
(LAMBDA 
(EXP) 
(COND 


(CEQ (CAR EXP) (QUOTE LOG)) 
CSIMP (SUBST 

{CADDR EXP) 

(QUOTE X} 

(QUOTE (PLUS (TIMES X (LOG E X)) (TEMES -2 X))) 0D) 
(CEQ (CAR EXP) (QUOTE PLUS)) (SIMPTIMES (LIST 0.5E0 EXP EXP))) 
(CEQ (CAR EXP) (QUOTE EXPT)) 

(COND 
(( FREE (CADR EXP)) 
(SIMPTIMES (SUBST 
EXP 
(QUOTE A) 
(SUBST (CADR EXP) (QUOTE B) (QUOTE (A (EXPT (LOG E Bd -1)99) 1D) 
(CEQP (CADDR EXP) ~1) 
(SIMP (SUBST (CADR EXP) (QUOTE X) (QUOTE {LOG E X)))) ) 
(T (SIMP (SUBST 
(SIMPPLUS (LIST (CADOR EXP) 1)) 
(QUOTE N) 
(SUBST 
(CADR EXP) 
(QUOTE X) 
(QUOTE (TIMES (EXPT N -1L) (EXPT X NEY) 99)00) 
(T (SUBST 
(CADR EXP) 
(QUOTE X) 
(COR (SASSOC 
(CAR EXP) 
(QUOTE ((SIN TIMES ~1 (COS X)} 
(COS SIN X} 
(TAN LOG E (SEC X)} 
(SEC LOG E {PLUS (SEC X) (TAN X))) 
(COT LOv E (SIN X)) 
(CSC LOG E (PLUS (SEC X) {TAN X))) 1) 
(QUOTE NILL) 3)9)))) 
(DIFFDIV 
(LAMBDA 
(EXP VAR) 
(PROG (Y A XVOD Z WR) 
(SETQ X 
(M2 
EXP 
(QUOTE (TIMES (COEFFTT (A FREE) (COEFFTT (8 TRUE)))) 
NIt )) 
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(SETQ A (COR (SASSOC (QUOTE A) X))) 
(SETQ EXP (CDR (SASSOC (QUOTE 8) X))) 
(COND 
CCAND 
(EQ (CAR EXP) (QUOTE EXPT)) 
(EQ (CAADR EXP) (QUOTE PLUS)) 
(INTEGERP (CADDR EXP)? 
(LESSP (CADDR EXP) 6) 
(GREATERP (CADOR EXP) 0) ) 
(RETURN (SIMPTIMES (LIST A 
CINTEGRATE {(EXPANDEXPT (CADR EXP) (CADDR EXP)) VAR) 3)))) 
(SETQ EXP 
(COND ((£€Q (CAR EXP) (QUOTE TIMES)) EXP) 
(T (LIST (QUOTE TIMES) EXP)) 4) 
(SETQ Z (CDR EXP)) 


(SETQ Y (CAR Z)) 
(SETQ R 
(LIST (QUOTE PLUS) 
{CONS (QUOTE COEFFPT) 
(CONS (QUOTE (C FREE1L)) (CHOICE ¥ (COR EXP))) 3D) 
(COND 
(CCSETQ W (M2 (DIFF1 Y VAR) R NILD) 
(RETURN : 3 
(SEIMPTIMES 
(LIST 
Y 
A 
Y 
CSIMPEXPT (LIST (SIMPTIMES (LIST 2 (COR (SASSOC (QUOTE C) W)))) 
1 ))dD20) 
{COND 
CCMEMBER (CAR ¥) (QUOTE (EXPT LOG))) 
(COND 
(CFREE (CADR Y)) (SETQ W (CADOR Y))) 
CCFREE (CADOR Y)) (SETQ W (CADR Y))) 
{T (SETQ WO) 0) 
CCUMEMBER (CAR Y¥) (QUOTE (PLUS TIMES))) (SETQ W Y)) 
(T (CSETG W (CAOR ¥))) ) 
(COND 3 
(CSETQ 
W 
(COND 
(CAND : . 
(EQ (CAR (SETQ X (DIFF1 W VAR))) (QUOTE PLUS)) 
(EQ 
(CAR (SETQ V (CAR (SETQ D (CHOICE Y¥ (COR EXP)))))) 
(QUOTE PLUS) ) 
(NOT (CDR O)F ) : 
{COND ((SETQ D (MATCHSUM {COR X) (COR V))) 
{LEST (CONS (QUOTE C) DI) ) 
(T NIL) )) 
(T (M2 X R NILD) 9) 
(RETURN 
(COND 
C(NULL (SETQ X CINTEGRALLCOKUP Y))) NIL) 
(T 
CSIMPTIMES 
(LIST 
x 
A 
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(COND 
((EQ WT) 1) 


(T (SIMPEXPT (LIST (COR (SASSOC (QUOTE C) WI) ~1))) 2209909) 
(SETQ 2 (COR 2)) 


(COND CONULL Z) (RETURN NILD)) 
(GO A) 9999) 


DEFINE 
(CC TRUE (LAMBDA (A) 1T)))) 


DEFINE 
( CCMATCHSUM 
(LAMBDA 
(ALIST BLIST) 
(PROG (R SC D) 
(SETQ S 
(M2 
(CAR ALIST) 
(QUOTE (TIMES (COEFFTT (A FREED) (COEFFTT (C TRUE)))) 
NIL )) 
(SETQ C (CDR (SASSQC (QUOTE C) S))) 
(COND 
CCNOT (SETQ R 
(42 
(CONS (QUOTE PLUS) BLIST) 
(LIST : 
(QUOTE PLUS) 
(CONS (QUOTE TIMES) 
(CONS 
(QUOTE (COEFFTT (6 FREE1))) 
(COND (CEQ (CAR C) (QUOTE TIMES)) (COR C)) 
(T (LIST Cd) 99) 
(QUOTE (D TRUE)) ) 


NIL ))) 
(RETURN NIL) 1) 
(SETQ DO 


(SIMP {LIST 
(QUOTE TIMES) 
(SUBLIS S (QUOTE A)} ; 
(LIST (QUOTE EXPT) (SUBLIS R (QUOTE B)) -1) ))) 


(COND CIM2 (CONS (QUOTE PLUS) ALIST) (TIMESLOOP D BLIST) NIL? 
(RETURN D) ) 


(T (RETURN NIL) 29909) 


OEF INE 
CCCEXPANDEXPT (LAMBDA (A ND 
{PROG (Y) 
(SETQ Y A) 
LOOP 


(SETQ N (SUB1L ND) 
(COND ((ZEROP N) CRETURN Y))) 
(SETQ Y 
(EXPAND (COR A} 
(COND (CEQ (CAR Y) 
(QUOTE PLUS) } 
(COR Y) ) 


(T (LIST YD) DD? 
{GO LOOP) ))))) 


METHODS 1-9 OF SIN*S SECOND STAGE 
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DEFINE 
(CC SUPEREXPT 
(LAMBDA 
(EXP VAR BASE) 
(PROG (EXPTFLAG Y W) 
(SETQ Y (ELEMXPT EXP)) 
(COND (EXPTFLAG (RETURN NIL))) 
(RETURN 
(SIMP 
( SUBST 
(LIST (QUOTE EXPT) BASE VAR) 
VAR 
CINTEGRATE 
(SIMPQUOTIENT 
(LIST Y 
CSIMPTIMES (LIST VAR (SIMPLOG (LIST (QUOTE E) BASE)))) 9) 
VAR VIII) 
CELEMXPT 
{LAMBDA 
CEXP) 
(COND 
(( FREE EXP) EXP) 
(CATOM EXP} (SETQ EXPTFLAG T)) 
((NOT (&Q (CAR EXP) (QUOTE EXPT))) 
(CONS (CAR EXP) 
{MAPLIST (COR EXP) (FUNCTION (LAMBDA (C) (ELEMXPT (CAR CV)))) 0) 
CCNOT (FREE (CADR EXP))) 
{LIST (QUGTE EXPT) (ELEMXPT (CADR EXP)) (CELEMXPT (CADOR EXP))) ) 
CUNOT [EQ (CADR EXP) BASE)) 
{ELEMXPT (LIST 
(QUOTE EXPT) 
BASE 
CSIMP (LIST 
(QUOTE TIMES) 
(LIST (QUOTE LOG) BASE (CADR EXP)) 
({CADDR EXP) 1)))) 
CONOT (SETOQ W 
(M2 
(CADDR EXP) 
(QUOTE (PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (8B FREE}))} 
Nit ))) 
{LIST (CAR EXP) BASE CELEMXPT (CADDR EXP))} ) 
(T €SIMP (SUBST 
BASE 
(QUOTE BASE) 
{SUBLIS W (QUOTE (TIMES (EXPT BASE 8) (EXPT VAR ADDY) 3997992) 


DEFINE 
(CCSUBST1O 
(LAMBDA (EXP) 
(COND 
(CATOM EXP) EXP) 
(CAND (EQ (CAR EXP) (QUOTE EXPT)) (EQ (CADR EXP) VAR)) 
(LIST (CAR EXP) VAR CINTEGERP (QUOTIENT (CADDR EXP) D)) 
(T (MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBST10 (CAR C))) 
(POWERLIST 
(LAMBDA 
(EXP VAR) 


») 
yoy 00) 
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OEFINE 
(CC INTEGERP (LAMBDA (A) 
(PROG (Y) 
(SETQ ¥ 1) 
(COND CCONGT (NUMBERP A)) (RETURN NILD) 
((NOT (CFLOATP A)) (RETURN AD) ) 
Cc 
(COND 
{((EQP Y A) (RETURN Y)) 
((LESSP ¥ A) (GO A)) . 
({NOT (GREATERP (DIFFERENCE Y A) 0.98999999E0)) (RETURN NIL)) ) 
tage Y (SUBL Y)) 
(GO C) 
A 


(COND ((NOT (GREATERP (DIFFERENCE A Y) 0.98999999E0)) (RETURN NILD) ) 
(SETQ ¥ (ADDL Y)) 
(GO C) ))) 
CFIXP1 (LAMBDA (A) {AND (NUMBERP A) (FIXP A))D)) 
(RAT3 (LAMBDA (EXP IND) 
(COND 
(CFREE EXP) T) 
(CATOM EXP) IND) 
CCMEMBER (CAR EXP) (QUOTE (TIMES PLUS))) 
CAND (RAT3 (CADR EXP) IND) 
(COR (NULL (CDDOR EXP)? (RAT3 (CONS (CAR EXP) (CDOR EXP)? IND)) )) 
{{NGT (EQ (CAR EXP) (QUOTE EXPT))) 
(COND (CEQ (CAR EXP) (QUOTE LOG)) (RAT3 (CDOR Exe) Td) 
(T CRAT3 (CADR EXP) TI) DD 
CCFREE (CADR EXP)) (RAT3 (CADOR EXP) 1T)) 
(CFEXP1L (CADDR EXP)) (RAT3 (CADR EXP) INO)) 
({AND (M2 (CADR EXP) RATROOT NIL) (DENOMFIND (CAODOR EXP))) 
(SETQ ROOTLIST (CONS {DENOMFIND {CADDR EXP)) ROOTLISTI) ) 
(T (RAT3 (CADR EXP) NILDD DD) 
(SUBST4 (LAMBDA (EXP) g 
(CONO 
CCFREE Exe) EXP) 
CCATOM EXP) AD 
((NOT (EQ {CAR EXP) (QUOTE EXPT))) 
(MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBST4 {CAR C))})) ) 
(UM2 (CAGR EXP) RATROOT NIL) 
(LIST (CAR EXP) B CINTEGERP {TIMES K (CADOR EXP)))) D | 
{T (LIST (CAR EXP) (SUBST4 (CADR EXP)) (SUBST (CADOR EXP)))) 39) 
C(FINDINGK (LAMBDA (LIST) 
(PROG (K) 
(SETQ K 1) 
A 
(COND ((NULL LIST} (RETURN K))) 
(SETQ K (QUOTIENT (TIMES K (CAR LIST)) (GCD K (CAR LIST)))) 
(SETQ LIST (COR LIST)) 


(GO A) })) 
(DENOMFIND (LAMBDA (K) 
(PROG (Y) : 
(COND (€(NOT (NUMBERP K)) (RETURN NIL))) 
(SETQ ¥ 1) 


(COND (CINTEGERP (TIMES K Y)) (RETURN YD)) 
(SETQ Y (A001 Y)) 
(COND ((LESSP Y 25) (GO A))) 
(RETURN NIL) 19) 
(GCD (LAMBDA (A B) 
(PROG NIL 
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(COND ((ZEROP A) (RETURN (ABSOLUTE B)))) 
CSETG 6B (REMAINDER 8B A)? 
(COND ((ZEROP B) {RETURN (ABSOLUTE A)D))) 
(SETQ A (REMAINDER A B)) 
(GO A) ))) 
(RATROOT 

(LAMBDA 

(EXP VAR RATROOT Ww) 

(PROG (ROOTLIST K Y W1) 
(COND ((SETQ Y (CHEBY EXP VAR)) (RETURN Y))) 
(COND ((NOT (RAT3 EXP T)) (RETURN NIL)))} 
(SETQ K (FINDINGK ROOTLIST)) 
(SETQ W1 (CONS (CONS (QUOTE K) K) W)) 
(SETQ oe ‘ 
Y 

(SUBST41 

EXP 

(SIMP (SUBLIS wl 
(QUOTE (QUOTIENT 
(DIFFERENCE B {TIMES D tEXPT VAR K))) 
(OIFFERENCE (TIMES C (EXPT VAR KP) AD 39D) 

VAR )) 

(SETQ 

Y 


CINTEGRATE 
CSIMP 
(LIST 
(QUOTE TIMES) 
Y 
(SUBLIS 
Wi 
(QUOTE (QUOTIENT 
(TIMES E 
(OIF FERENCE 
(TIMES AO K (EXPT VAR (PLUS -1 K))) 
(TIMES BC K (EXPT VAR (PLUS. -1 K)D) DD 
(EXPT (DIFFERENCE (TIMES C CEXPT VAR KD) AD 2) 0090) 
VAR 1) ; 
(RETURN (SIMP (SUBST 
(SIMP ELIST (QUOTE EXPT) RATROOT (LIST (QUOTE EXPT) K -1))) 


VAR 
Y vdDDDDDD 
DEFINE 
(COSUBST41 (LAMBDA (EXP A B) (SUBST4 EXP))))) 
DEFINE 
CUCCHEBY 
{LAMBDA 
(EXP VAR) 
(PROG (R1 R2 D1 D2 NL N2 W Q) 
(COND 
{ (NOT 
(SETQ 
wW 
(M2 
EXP 


(QUOTE {TIMES 
(EXPT (VAR VARP) (Rl NUMBERP)) 
(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) 
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(EXPT (VAR VARP) (Q FREELI) ) 
(COEFFP (Cl FREED) ?) 
(R2 NUMBERP) } 
(COEFFTT (A FREED) )) 
NIL ))) 
{RETURN NIL) )) 
(SETQ Q (COR (SASSOC (QUOTE Q) wW))) 
(SETQ 
Ww 
(CONS 
(CONS (QUOTE A) 
(SIMPQUOTIENT (LIST (CDR (SASSOC (QUOTE A) W)) Q)) } 
(CONS 
(CONS 
(QUOTE R1) 
CSIMPQUOTIENT (LIST (SIMPPLUS {LIST 
1 
(SIMPMINUS (LIST Q)) 
(COR (SASSOC (QUOTE R1) wW)) }) 
Q))) 
wo))) ; 
(SETQ R1 (CDR (SASSOC (QUOTE RIL) WI)? 
(SETQ R2 (COR (SASSOC (QUOTE R2) wWd)) 
(SETQ W (REVERSE W)) 
(COND 
CCNOT (CANO 
(SETQ Dl (DENOMFINO R1)) 
(SETQ D2 (DENOMFIND R2)) 
(SETQ NL (CINTEGERP (TIMES R1 D1?) 
(SETQ N2 CINTEGERP (TIMES R2 02)) 
(SETQ W 
(CONS (CONS (QUOTE D1) D1) 
(CONS (CONS (QUOTE 02) 02) 
(CONS (CONS (QUOTE NI) N1) 
(CONS {CONS (QUOTE N2) N2) W) 3D9D9) 
(RETURN NIL) } 
(CAND CINTEGERP RL) (GREATERP RL O}) 
(RETURN 
CSIMP 
(SUBST 
CSUBLIS W CQUOTE (PLUS C1 (TIMES C2 (EXPT VAR.Q))))) 
VAR 
CINTEGRATE 
{EXPAND 
(SUBLIS W 
(QUOTE C( TIMES 
A 
(EXPT VAR R2) 
(EXPT C2 (MINUS (PLUS R1 1))) 999) 
(COR (EXPANDEXPT (SUBLIS W (QUOTE [PLUS VAR (TIMES -1 C1)))) 
Rl 3) 
VAR ))))) 
CCINTEGERP R2) 
(RETURN 
CSIMP 
(SUBST 
(SUBLIS W (QUOTE (EXPT VAR (QUOTIENT C€ DL}))) 
VAR 
(MASTER 
(CONS 
VAR 


} 
’ 
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(SIMe 
(SUBLIS Ww 
(QUOTE (TIMES 
Ol 
A 
(EXPT VAR (PLUS N1 Di -1)) 
(EXPT (PLUS (TIMES C2 (EXPT VAR 01)) C1) R2} 990099009) 
(CAND CINTEGERP R1) (LESSP R1 0)) 
(RETURN 
(SIMP 
(SUBST 
(SUBLIS WwW 
(QUOTE (EXPT {PLUS C1 (TIMES C2 (EXPT VAR Q))) 
(QUOTIENT 1 D2) ))) 
VAR 
(MASTER 
(CONS 
VAR 
(STMP (SUBLLS W 
(QUOTE (TIMES 
A 
01 
(EXPT C2 (MINUS (PLUS R1 19) 
(EXPT VAR (PLUS Nit O01 <-1)) 
(EXPT (DIFFERENCE (EXPT VAR D1) CL) RL 1990900999) 
CCINTEGERP (SIMPPLUS (LIST R1 R2))) 
(RETURN 
CSIMP 
(SUBST 
(SUBLIS WwW 
(QUOTE (EXPT (QUOTIENT (PLUS Cl (TIMES C2 CEXPT VAR Q))) 
(EXPT VAR Q) } 
(QUOTIENT 1 DL) DD) 
VAR 
(MASTER 
{CONS 
VAR 
(SIMP (SUBLIS W 
(QUOTE (TIMES 
-1 
A 
Dl 
(EXPT CL (PLUS R1 R2 1)) 
(EXPT VAR (PLUS N2 O1 -1)) 
(EXPT (DIFFERENCE (EXPT VAR D1) C2) 
(TIMES -1 (PLUS R1 R2 23) 9999900790) 
(T (RETURN NIL)) 99000) - 


DEFINE 
((CALGEB (LAMBDA {A BC D) (ALGEB2 A BC {CONS NIL D)))))) 


DEFINE 
(( CALGEB2 
(LAMBDA 
(EXP VAR SQUARE WwW) 
(PROG (A Y B C Fl Al Y1 X1 E OH G) 
(SETQ A (COR (SASSOC (QUOTE A) W))) 
(SETQ B (COR (SASSOC (QUOTE 8) W))) 
(SETQ C (COR (SASSOC {QUOTE C) wW))) 
(COND ((NOT (RAT6 EXP)) (RETURN NIL))) 
(SETQ Yl 


tl 


L2 


L& 


L3 


L5 
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(SIMP (LIST 

(QUOTE PLUS) 

VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 C)) 32) 
(SETQ Xl 
(SIMP (LIST 

(QUOTE OIFFERENCE) 

VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 C)) 9d) 
(SETQ Al 
(SIMP (LIST 

(QUOTE DIFFERENCE) 

A 


(LIST 
(QUOTE QUOTIENT) 
(LIST (QUOTE EXPT) B 2) 
(LIST (QUOTE TIMES) 4 C) 999) 
(COND 
(CAND (NUMBERP C) (GREATERP C OF) (GO L1)} 
(CAND (NUMBERP C) (LESSP C 0)) (GO L2)) 
CCASKPOS C) {GO L1)) 
CCASKNEG C) (GO L2)) 
eee C (QUOTE POSITIVE)) (co L1)) 
CCASKIT C (QUOTE NEGATIVE)) (GO L2)) 
¢(T (RETURN (ALGEB EXP VAR SQUARE -W)}) ) 


(COND 

(CAND (NUMBERP Al) (GREATERP Al 09) (GO L3)) 
{CAND (NUMBERP Al) {(LESSP Al 0)) (GO L5)) 
(CAND (NUMBERP Al) (ZEROP Al)) (GO L4)) 
(CASKPOS Al): (GO L3)) 

CCASKNEG Al) (GO L5)) 

CUASKIT Al (QUOTE POSITIVE)? (GO L3)) 
(CASKIT Al (QUOTE NEGATIVE)) (GO L5)) 
((ASKZERO Al) {GO L4)) 

(T (RETURN (ALGEB EXP VAR SQUARE W))) ) 


(COND 

(CAND (NUMBERP Al) (GREATERP Al 0)) (GO L6)) 
(CANO (NUMBERP Al) (LESSP Al 0)) 

(RETURN (ALGEB EXP VAR SQUARE W)) ) 
(CASKPOS Al) (GO L6)) 

CCASKIT Al (QUOTE POSITIVE)) (GO L6)) 

(T (RETURN (ALGEB EXP VAR SQUARE W})) ) 


(SETQ C (SIMPEXPT {LIST C 0.5€0})) 
(SETQ ¥ (SUBST6 EXP X1 (SIMP (LIST (QUOTE TIMES) C VAR)))? 


“ (SETQ Y CINTEGRATE (SIMP Y) VAR?) 


{RETURN USIMP (SUBST YL VAR Y))) 


(SETQ H (QUOTE (ARCTAN X})) 

(SETQ E (QUOTE (TAN X))) 

CSETQ Fl (QUOTE (SEC X))} 

(SETQ G (QUOTE (EXPT (SEC X) 2))) 
(GO GETOUT) 


(SETQ H (QUOTE (ARCSEC X))) 

(SETQ E (QUOTE (SEC X))) 

(SETQ Al USEMPMINUS (LIST Al1))}) 

(SETQ Fl (QUOTE (TAN X))) 

(SETQ G (QUOTE (TIMES (TAN X) (SEC X)})) 
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(COND 
{C UNUMBERP {CADDR C)) CINTEGERP (QUOTIENT (CACDR C) 2))) 
(CATOM (CADR C)} (GET (CADR C) (QUCTE POSITIVE))) 
(T NIL) 9) 

(T NIL? 9)9)) 


DEFINE 
({CPFCTSQ (LAMBDA (X) 
(PROG CY) 
(SETQ Y 1) 
A 
(COND ((EQP (TIMES Y Y) X) (RETURN YD) 
((GREATERP (TIMES Y Y) X) (RETURN NIL)) 3) 
(SETQ Y (ADD1 Y)) 
(GO A) ))) 
(RAT6 (LAMBDA (EXP) 
(COND 
((FREE EXP) T) 
(( ATOM EXP) T) 
COMEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(CAND (RAT6 (CADR EXP)) 
(OR (NULL (CDDR EXP)) (RAT6 (CONS (CAR EXP) (CDDR EXP)))) J) 
C(NOT (EQ (CAR EXP) (QUOTE EXPT))) NIL) 
(CC FIXP2 (CADDR EXP)) (RAT6 (CADR EXP))) 
CONGT CINTEGERP (SIMPTIMES (LIST 2 (CADDR EXP)}))) NIL) 
(T (M2 (CAODR EXP} SQUARE NIL)) 17) 
(SUBST6 
(LAMBDA 
(EXP A B) 
(COND ((FREE EXP) EXP) 
(CATOM EXP} Ad 
({(MEMBER (CAR EXP) (QUOTE (PLUS TIMES)}) 
(CONS (CAR EXP) 
(MAPLIST (COR EXP) 
(FUNCTION (LAMBDA (C) (SUBST6 (CAR C) A BID} 19) 
((NOT (EQ (CAR EXP) (QUOTE EXPT))) (ERROR)) 
(CFIXP1 (CADDR EXP)) 
(LIST (CAR EXP) (SUBST6 (CADR EXP) A B) (CADDR EXP)) ) 
(T {LIST (CAR EXP) B CINTEGERP (TIMES 2 (CACDR EXP))))) 9D) 
CTRIGSORT 
(LAMBDA 
(EXP VAR SQUARE W) 
(PROG (Y A BC ODE Fl GH) 
(SETQ A (CDR (SASSOC (QUOTE A) W))) 
(SETQ B (CDR (SASSOC (QUOTE B) W))) 
(COND (COR (NOT (NUMBERP A)} (NOT (NUMBERP &))) 
(RETURN (ALGEB EXP VAR SQUARE W)) ) 
((NOT (RAT6 EXP)) (RETURN NIL)) ) 
(COND ((GREATERP A 0) 
(COND ((GREATERP B Q) 
(AND (SETQ H (QUCTE {(ARCTAN X))) 
(SETQ € (QUCTE {TAN X))} 
(SETQ Fl (QUOTE (SEC X))) 
{SETQ G (QUOTE (EXPT (SEC X} 2))) 9) 
(T (AND (SETQ E (QUOTE (SIN X))) 
(SETQ G (QUOTE (COS XJ?) 
{SETQ B (MINUS B)} 
(SETQ Fl (QUOTE (COS X)))} 
(SETQ H (QUOTE CARCSIN X))) DDD) 
(T CAND (SETQ E (QUOTE (SEC X))) 
(SETQ A {MINUS A)) 
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{SETQ Fil (QUOTE (TAN X))) 
(SETQ G (QUOTE (TIMES (TAN X) (SEC X)))) 
(SETQ H (QUOTE CARCSEC X))) 9D) 
(COND ((NOT (SETQ C {(PFCTSQ (QUOTIENT A B)))) {RETURN NIL)) 
CC(NGT (SETQ D (PFCTSQ AY) CRETURN NILI) } 
(SET Y 
(SUBST6 EXP 
CSIMP (LIST (QUOTE TIMES) 
c 
(SUBST VAR (QUOTE X) E) }) 
CSIMP (LIST (QUOTE TIMES) 
DO 
(SUBST VAR (QUOTE X) Fl) )))) 
(SETQ Y (SIMP (LIST (QUOTE TIMES) C (SUBST VAR (QUOTE X} G) Y))) 
CSETG Y ({TRIGINT Y VAR)) 
(RETURN (SIMP (SUBST (SUBST (LIST (QUOTE TIMES) 
(LIST (QUOTE EXPT) C -1) 


VAR ) 
(QUOTE x) 
H ) 
VAR 
Y d0)0)0)) 
DEFINE 
(((ALGEB 
(LAMBDA 


(EXP VAR SQUARE WwW) 
(PROG (A BC Al Ci Y PROBL) 
(SeTQ A {CDR (SASSOC (QUUTE A) W))) 
(SETQ@Q B (COR (SASSOC {QUOTE B) W))) 
(SETQ C {CDR (SASSOC (QUOTE C) wW))} 
(COND ((NOT (RAT6 EXP)) (RETURN NIL))) 
(COND 
(CAND (NOT (NUMBERP C)) (CASK C)) 
(SETQ Cl (SIMPEXPT (LIST C 0.5E£0))) } 
((NOT ({NUMBERP C)) (GO A)) 
((NOT {GREATERP C 0)) (GO Ad) 
{T (SETa Cl (SEMPSQRT C))) } 
(SETQ Y 
(SUBST6 
EXP 
(SUBSTL (A B Cl VAR) 
(QUOTIENT (DIFFERENCE (EXPT VAR 2) A) 
(PLUS B (TIMES 2 (TIMES VAR Cl1))) )) 
(SUBSTL (A B VAR Cl) 
(QUOTIENT (PLUS (TIMES (EXPT VAR 2) Cl) (TIMES 8 VAR) (TIMES A C1)) 
(PLUS B CTIMES 2 (TIMES VAR C1))) 090) 
(SETQ 
PROBL 
(LIST 
(QUOTE TIMES) 
Y 
(SUBSTL (A B Cl VAR) 
(TIMES 2 
(TIMES (PLUS (TIMES B VAR) (TIMES (EXPT VAR 2) C1) (TIMES A C1)) 
(EXPT (PLUS B {TIMES 2 (TIMES VAR C1))) -2) ))))) 
(SETQ Y 
(SUBSTL (VAR Cl SQUARE) 
(PLUS (TIMES VAR Cl) (EXPT SQUARE (QUOTIENT 1 2))) 0) 
(GO B) 
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(COND 
(CAND (NOT (NUMBERP A)) (ASK A)? 
(SETQ Al (SIMPEXPT (LIST A 0.5E60))) ) 
( (NOT (NUMBERP A}) (ERROR (QUOTE (NOT YET)))? 
C{LESSP A 0) (ERROR (QUOTE (NOT YET)))) 
(T (SETQ Al (SIMPSQRT ADD) ) 
({SETQ Y 
(SUB ST6 
EXP 
(SUBSTL (BC Al VAR} 
(QUOTIENT (OIFFERENCE (TIMES 2 (TIMES VAR AL)) B) 
(OIFFERENCE C (EXPT VAR 2)) })} 
(SUBSTL (B C Al VAR) 
(QUOTIENT (PLUS 
(TIMES Al CEXPT VAR 2)) 
(TIMES -1 (TIMES B VAR)) 
(TIMES Al C) ) 
(DIFFERENCE C (EXPT VAR 2)) 999) 
(SETQ : 
PROBL 
(LIST 
(QUOTE TIMES) 
Y 
(SUBSTL (B C Al VAR) 
(TIMES 
(TIMES 2 
(PLUS 
(TIMES Al (EXPT VAR 2)) 
(TEMES -1 (TIMES B VAR)) 
(TIMES Al C) )) 
(EXPT (DIFFERENCE C (EXPT VAR 23) -2) )))) 
(SETQ Y 
(SUBSTL (VAR Al SQUARE) 
(QUOTIENT (DIFFERENCE (EXPT SQUARE (QUOTIENT 1 2)) Al) VAR) ) 


(RETURN (SIMP (UNTR (SUBST Y VAR (MASTER (CONS VAR PROBL}))))) 2999) 


DEFLIST 
CECSUBSTL 
(LAMBDA (A ALIST) 
(SUBLIS (MAPLIST (CAR A) 
(FUNCTION (LAMBDA (8) 
(CONS (CAR 6) 


(EVAL (CAR B) ALIST) 99)) 
({CADR Ad 39D) 


FEXPR ) 
DEFINE 
CCOSIMPSQRT (LAMBDA (X) 
(PROG (Y) 
(SETQ ¥ 1) 
A 


(COND ((EQP (TIMES Y Y) X) CRETURN YD) 
((GREATERP (TIMES Y Y) X) 
(RETURN (LIST (QUOTE EXPT) 
x 


(QUOTE (QUOTIENT 1 29) 999) 
(SETQ Y {ADD1 Y)) 
“(GO AD D990) 
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(SUBVAR 
{(SUBLIS 
Y 
(QUOTE (A (DIFFERENCE 
(QUOTIENT 
(SIN (TIMES ({OIFFERENCE MN) X)) 
(TIMES 2 (OIFFERENCE M ND) ) 
(QUOTIENT (SIN (TIMES (PLUS MN) X)) 
(TIMES 2 (PLUS M ND) 99909099) 
((AND (EQ B (QUOTE COS)) (EQ D (QUOTE COS))) 
{RETURN 
(SIMPTIMES 
( SUBVAR 
(SUBLIS 
Y 
(QUOTE (A {PLUS 
(QUOTIENT 
(SIN. (TIMES (DIFFERENCE MN) X)) 
(TIMES 2 (DIFFERENCE MND) ) 
(QUOTIENT (SIN (TIMES (PLUS MN) X)) 
(TIMES 2 (PLUS M ND) 9992907)) 
({OR (AND 
(EQ B (QUOTE COS)) 
(SETQ W (CDR (SASSOC (QUOTE M) Y))) 
(RPLACD (SASSOC (QUOTE M) ¥) (CDR (SASSOC (QUOTE N) Y))) 
(RPLACD {SASSOC (QUOTE N) Y) Wd DD. 
T) 
(RETURN 
(SIMPTIMES 
CSUBVAR 
(SUBLIS 
Y 
(QUOTE (-1 A 
(PLUS 
(QUOTIENT 
{COS (TIMES (DIFFERENCE MN) X)) 
{TEMES 2 (DIFFERENCE M N}) ) 
(QUOTIENT (COS (TIMES (PLUS MN) X)) 
(TIMES 2 (PLUS MND) 990929090) 


{COND 
( {NOT 
(SETQ 
Y 
(PROG2 
(SETQ TRIGARG VAR} 
im2 
=XP 
(QUOTE (TEMES 
(COEFFTT (A FREE)) 
((B TRIGL) (TIMES (X VARP)} (COEFFTT (N INTEGERP)))) 
(COEFFTT (C SUPERTRIG)) )) 
NIL 9))) 
(RETURN NIL) )) 
(RETURN 
C INTEGRATE 
(EXPAND2 
(LIST 
(QUOTE TIMES) 
(REPLACE Y (QUOTE C)) 
(COND 
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((EQ (SETQ B (REPLACE Y (QUOTE B))) (QUOTE COS)) 
(SUBST 

VAR 

(QUOTE X) 

(SUPERCOSNX (REPLACE Y (QUOTE N))) )) 


(T (SUBST VAR (QUOTE Xb (SUPERSINX (REPLACE Y (QUOTE N)))) 


VAR }) 
A 
{SETG W (SUBST2 EXP TRIGARG)) 
CSeTu B 
(CDR (SASSOC (QUOTE B) 
(M2 
TRIGARG 
(QUOTE (PLUS (COEFFPT (B FREE) (X VARP}) (COEFFPT (A FREE))) 
NIL 90) 


{RETURN (SUBST TRIGARG VAR (TRIGINT (SIMPQUOTIENT (LIST W Bd) VAR)) 


(TRIG2 {LAMBDA (A) {MEMBER A (QUOTE (SIN COS TAM CCT SEC CSC1)IIN) 9) 


DEFINE 
(CC SUPERSINX (LAMBDA (N) 
(C(LAMBDA (T) 
(EXPAND2 (LIST (GUOTE TIMES) 
I 
(SUINNX {TIMES T ND) 0D) 
(COND ((LESSP NO) ~-1) (T 10} 9) 
(SUPERCOSNX (LAMBDA {(N} 
((LAMBOA (1) CEXPAND2 (COSNX (TIMES I N)))) 
(COND (({LESSP NO) -L) (T 11) 90) 
{SINNX (LAMBDA (N) 
(CONG CCEQUAL N 1) (QUOTE (SIN X)}) 
(T (LIST (QUOTE PLUS) 
(LIST (QUOTE TIMES) 
(QUOTE (SIN X)}) 
(COSNX {(SUBI N)) J 
(LIST (QUOTE TIMES) 
(QUOTE (COS X)} 
(SINNX €SUBl NY) 3)))0) 
(COSNX (LAMBDA [N) 
(COND (CEQUAL N 1) (QUGTE (COS X))) 
(T (LIST (QUOTE PLUS} 
(LIST (QUOTE TIMES) 
{QUOTE (COS X)) 
(CCOSNX (SUB1 NJ} ) 
(LEST (QUOTE TIMES) 
-1 
(QUOTE (SIN X)) 
{SINNX (SUBL NI) 2900099) 


DEFINE 
(CUPGSEVEN {LAMBDA (A) (AND (EVEN Ad (GREATERP A ~-1)))) 
(TRIGFREE (LAMBDA (A) 
(COND 
((ATOM A) (NOT (MEMBER A (QUUTE (SIN* COS*® SEC# TAN#})))) 
(T (AND (TRIGFREE (CAR AY) (TRIGFREE (CDR AD))) 1)) 
(UNTR CLAMBDA (EXP) 
(COND 
(CATOM EXP) EXP) 
({EW {CAR EXP) (QUOTE LOG)) 
(COND ({NULL (CDDR EXP)) 
(LIST (CAR EXP) (QUOTE E) (UNTR {CADR EXP))) } 
(T (LIST (CAR EXP) (CADR EXP) (UNTR (CADDR EXP)))) 91 


yd) 


) 


y))) 
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(CEQ (CAR EXP) (QUOTE MINUSD) (LIST (QUOTE TIMES) -1 (UNTR (CADR EXP)))) 
(CEQ (CAR EXP) (QUOTE SQRT)} 
(LIST (QUOTE EXPT} CUNTR (CADR EXP)) 0.5€0) } 
(CEQ (CAR EXP) (QUOTE INTEGRAL)? (LIST {CAR EXP) (CADR EXP) VAR)) 
(CEQ {CAR EXP) (QUOTE DIFFERENCE) 
(LIST (QUOTE PLUS) 
(UNTR (CADR EXP)) 
(LIST (QUOTE TIMES) -1 (UNTR {CADOR EXP))) 3) 
(CEQ {CAR EXP) (QUOTE QUOTIENT)) 
(LIST (QUOTE TIMES) 
(UNTR (CAOR EXP)) 
(LEST (QUOTE EXPT) (UNTR (CADOR EXP)) —1) # 
(T (MAPLIST EXP (FUNCTION (LAMBDA (A) CUNTR (CAR AY)DDD) DDD) 


DEFINE 
CCCTRANSL 
(LAMBDA 
(EXP) 
(COND 
CCNUMBERP EXP) 
(PROG (TEMP) 
(RETURN (COND 
(CFIXP EXP) EXP) 
CCSETQ TEMP (INTEGERP EXP)) TEMP) 
(USETQ TEMP (DENOMFIND EXPs) 
(LIST (QUOTE QUOTIENT) (INTEGERP (TIMES TEMP EXP)) TEMP) } 
(T (ERROR (QUOTE TRANSLI}} 399) 
(CATOM EXP) EXP) 
(CAND (MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(GREATERP (LENGTH (COR EXP)) 2) } 
(LIST 
(CAR EXP) 
(TRANSL {(CADR EXP)) 
(TRANSL (CONS (CAR EXP) (CODR EXP))) 1) 
({AND (EQ (CAR EXP) (QUOTE LO0G)) (CDOR EXP)) 
(COND ((EQ (CADR EXP) (QUOTE E)) (CONS (CAR EXP) (CDOR EXP))} 
(T (LIST 
(QUOTE QUOTIENT) 
(LIST (QUOTE LOG) (TRANSL (CADDR EXP))? 
(LIST (QUOTE LOG) (CAODR EXP)) 139) 
(T (MAPLIST EXP (FUNCTION (LAMBDA (A) (TRANSL (CAR ADDDD9) 99) 
(RATL (LAMBDA (EXP) 
(PROG (B81 NOTSAME) 
(COND ((ANO (NUMBERP EXP) (ZEROP EXP)) (RETURN NIL))? 
(SETQ B1 (SUBST B (QUOTE B) (QUOTE (EXPT B {N EVEN))))) 
(RETURN (PROG2 (SETQ YY (RAT EXP)) (COND ((NGT NOTSAME) VY) (T NEILDD) 220) 
(RAT 
(LAMBDA 
CEXP) 
(PROG (Y) 
(RETURN 
(COND 
(CEQ EXP A) (QUOTE X)) 
(CATOM EXP) ; 
(COND ( (MEMBER EXP (QUOTE (SIN® CGS# SEC# TAN#))) 
{SETQ NOTSAME T) } 
(T EXP) ») 
(CSETQ ¥ (M2 ExP 81 NILD) (F3 Y9} 
(T (CONS (CAR EXP) 
(MAPLIST {CDR EXP) (FUNCTION (LAMBOA (G) (RAT (CAR G)DD9) 299090) 
(F3 (LAMBDA (Y} 
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(SUBST 
c 
(QUOTE C} 
(SUBST 
(QUOTIENT (CDR (SASSOC (QUOTE N) Y NIL)) 2) 
(QUOTE N) 
{QUOTE (EXPT (PLUS 1 (TIMES C- (EXPT X 2))) NID 99D) 
(0001 
(LAMBDA 
(N) 
(COND C(NOT (ZEROP (REMAINDER N 2)}) 
(SETQ YZ 
(SUBST 
c 
(QUOTE C) 
(LIST 
(QUOTE EXPT) 
(QUOTE (PLUS 1 (TIMES C (EXPT X 2)))) 
(QUOTIENT (SUB1 N) 2) 997) 
CT NILD 2D) 
(EVEN (LAMBOA (A) (AND (NUMBERP A) CINTEGERP (QUOTIENT A 23290) 
(SUBVAR (LAMBDA (8) {SUBST VAR (QUOTE X) Bd)? 
CTRIGINT 
(LAMBDA 
{EXP VAR) 
(PROG (Y REPL Yl Y2 YY ZM NC YZ A B) 
(SETQ Y2 
({SUBLIS (SUBVAR (QUOTE (C(SIN X) . SIN®) 
C(COS X) . COS#) 
CCTAN X) 2 TAN®) 
((COT X) EXPT TAN® -1) 
((SEC X) . SEC#) 
((CSC X) EXPT SEC# -1) 22) 
EXP )} 
(SETQ Y2 
(SETQ Y 
(SIMP (SUBLIS [QUOTE ((TAN® TIMES SIN® (EXPT COS# -1)) {SEC@ EXPT COS* ~1))) 
y2 999) 
(COND ((NULL ESETQ Z 
(M2 
Y 
€QUOTE (TIMES 
{COEFFTT (B TRIGFREE)) 
(EXPT SIN® (M POSEVEN)) 
(EXPT COS*® (N POSEVEN)} )) 
NIL 1D) 
(GO L1) 3) 
{(SETQ M (CDR (SASSOC (QUOTE M) Z))) 
(SETQ N (CDR (SASSOC (QUOTE N) Z))) 
(SETQ A 
CINTEGERP (TIMES 
0.5E0 
(COND ({LESSP MN) 1) (T -1)) 
(PLUS N (TIMES -1 Md) 3)) 
(SETQ Z (CONS (CONS [QUOTE A) A} 29) 
(RETURN 
CSIMP 
(LIST 
{QUOTE TIMES) 
(COR (SASSOC (QUOTE 8) 2)) 
0.5E0 
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(SUBST 
(LIST (QUGTE TIMES) 2 VAR) 
{QUOTE X) 
(INTEGRATE 
(SIMP 
{CONO 
((LESSP MN) 
(SUBLIS Z 
(QUGTE (TIMES 
(EXPT (TIMES 0.5€0 (SIN X)) M) 
{EXPT (PLUS O.5E0 (TIMES O.5£0 (CGS X))) Ab 1))) 
(T €SUBLIS Z 
(QUOTE (TIMES 
CEXPT (TIMES 0.560 (SIN X)) ND 
(EXPT (PLUS G.5E0 {TIMES -0.5E0 (COS Xd}) AD DdDDD) 
(QUOTE XxX) 229d) 


Ll 
(SETQ C -1) 
(SETQ A (QUOTE SIN#®)) 
(SETW B (QUOTE TOS*#)) 
(COND (CAND 
(42 Y (QUUTE (CUEFFPT (C RAT1L) EXPT CCS# (N O001)))) NIL} 
(SETG RePL {LIST (QCuaTE SIN) VAR)) } 
(GO GETGUT) )) 
(SETQ A B) 
(SETQ B (QUUTE SIN#)) 
(COND CCAND 
(M2 Y (QUOTE (COEFFPT (C RATL) CEXPT SIN* (N GOC1)))) NIL) 
(SETO REPL (LIST (QUOTE COS) VARI) ) 
(GO GET3) )) 
(SETQ Y 
{SIMP (SUBLIS (GUOTE ((SIN® TIMES TAN® (EXPT SEC# -1)) (COS* EXPT SEC#® ~-1))) 
Y2 ))) 
(SETQ C 1) 
{(SETQ A (QUOTE TAN#)) 
(SETQ@ B (QUOTE SEC*)) 
(COND ((AND ¢(RATL Y) (SETQ REPL (LIST (QUQTE TAN) VAR))) (GO GET1)) } 
(SETQ A B) 
{SETG B (QUOTE TAN#®)) 
(COND (CAND 
(M2 Y (QUOTE (COEFFPT (C RATI) (EXPT TAN® (N QDD1)II)9) NIL) 
(SETQ REPL (LIST (QUOTE SEC) VARI) ) 
(GO GETOLT) )) 
(SETQ Y 
(SIMP (SUBLIS (QUOTE ((SIN® TIMES 2 X (EXPT (PLUS 1 CEXPT X 2)) ~1)) 
(COS«* 
TIMES 
(PLUS 1 (TIMES -1 (EXPT X 2))) 
(EXPT (PLUS 1 (EXPT X 29) -1) 9)) 
Yl ))) 
(SETQ Y 
{LIST 
{QUOTE TIMES) 
¥: 
{QUOTE (TIMES 2 (EXPT (PLUS 1 CEXPT X 24) ~-1))) 1) 
(SETG@ REPL (SUBVAR (QUOTE (QUOTIENT (SIN X) (PLUS 1 (COS X})))9) 
(G0 GET2) 
GET3 


{SETQ Y (LEST (QUOTE TIMES} 1 YY YZ)) 
{GO SET2) 
GET1L 
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{SETQ Y 
(LIST (QUOTE TIMES) (QUOTE (EXPT (PLUS 1 (EXPT X 2)) -1)) YY) ) 
(GO GET2) 
GETOUT 
(SETQ Y (LIST (QUOTE TIMES) YY YZ)) 
GET2 
(SETQ Y (SIMP Y)) 
(RETURN (SIMP (SUBST REPL (QUOTE X) CINTEGRATE Y (QUOTE X))))) J)D)) 
DEFINE 
((CALGORT 
(LAMBDA 


(Rl Pl VARI) 

(PRUG (R OLDS1 OLOREST P VAR PD QS SL S2 ANS Al A2 A3 NUM A M B REST) 
(CSETQ VARLIST {LIST VARI1)) 
(NEWVAR R1) 

(NEWVAR P1) 

(SETQ R (REP R1)) 

(SETQ P (REP P1)) 

{SETQ VAR {REP VARI)) 
(SETQ PD (PFDERIVATIVE P)) 
(SET Q (DENOMINATORF R)) 
(SETQ Sl (NUMERATORF R)) 


LOGP 
(COND ({NOT (POLP S1)) (GO A))) 
(SETQ B {LIST (CAR S1))) 
CSETQ S (SIMPOL {CDR $1))} 
CSETQ M (SUB1L (LENGTH S1))) 

B 


(SETQ ANS {PLUSF A ANS)) 
{SETQ OLDSI $1) 
{SETQ OLOREST REST) 


(SETQ A CQUOTIENTF (TIMESF 8B (POLEXPT VAR M)) (TIMESF PD Q)}) 
(SETQ AZ CTIMESF A (PFOERIVATIVE @)))} 
CSETQ A2 
(QUOTIENTF (MINUSF (TIMESF B (POLDERIVATIVE (PGLEXPT VAR M)})) 
PD )) 
(SETQ Al 


(QUOTIENTF (TIMESF (TIMESF B (POLEXPT VAR M)) (PFDERIVATIVE PD)} 
(PULEXPT PD 2) )) 
(SETQ S2 (SEP (PLUSF (PLUSF S REST) (PLUSF Al (PLUSF A2 A3))}}) 
{SETQ $1 (CAR S2)) 
CSETQ REST (CDR $2)) 
(COND {Sl (GO LOOP))) 
(SETQ REST (SIMPSIMP (TRANS REST))) 
{COND ((AND (NUMBERP REST) (ZEROP REST)) 
(RETURN (SIMPSIMP (LIST 
(QUGTE TIMES) 
(TRANS (PLUSF A ANS)) 
(LIST (QUOTE EXPT) (QUOTE E) Pl) ))))) 
{RETURN 
(PLUSSIMP 
(LIST 
{QUOTE PLUS) 
(SIMPSIMP (LIST 
(QUOTE TIMES) 


(TRANS ANS) 
(LIST (QUOTE EXPT) (QUOTE E) Pl) )) 
(LIST 


{QUOTE INTEGRAL) 
(LIST 
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(RETURN (SIMP (LIST (QUOTE DIFFERENCE) (LIST (QUOTE TIMES) Y DP Z)) ) 


(COND 
C(NOT 
(SETQ 
W 


(M2 
D 
(QUOTE 
(PLUS 
(COEFFPT 
(C TRUE) 
CEXPT 
(CC (LAMBDA (CC) 
(M1 CC 
(QUOTE (PLUS (COEFFPT (B FREE) (EXPT (X VARP) 2)) 
(COEFFP (A FREED) 1330) 
{N INTEGERP1) 939)3)) 
(GO C) )) 
(SETQ CC {CDR (SASSOC (QUOTE CC) W))) 
(SETQ Z (TRIGSQRT (LIST (QUOTE TIMES) Y 0) VAR CC W)) 
(COND ((NULL Z) (RETURN NIL))) 
{GO A) ))))) 


DEFINE 
CCCFINDL (LAMBDA (Y A) 
(COND 
(CEQ Y A) T) 
((ATOM Y) NIL) 
(¥ (OR CFIND1 (CAR YP A) (FIND (COR ¥) ADD) 9D) 
(MAXPARTS 
(LAMBDA 
tA) 
(PROG (Y) 
(SETQ Y 2) 
Loop 
(SETQ Y 
(MAX ¥ 
(COND ((EQ {CAR Y) (QUOTE EXPT)) 
(COND ({NUMBERP (CADDAR Y)) 
(COND ({{LESSP (CADDAR Y) 0) (MINUS (CADDAR Y))) 
(T {CADDAR Y}) )) ; 
(T 1) 90) 
«(tT 1) 9)) 
(SETQ A (CDR A?) 
(COND ((NULL A) (RETURN Y))) 
(GO LOOP) ))) 


INTEGRA TION~-8 Y-PARTS 


(PARTS 
(LAMBDA 
(EXP VAR) 
(PROG (A B Y Z WG TOPPART) 
(COND (NOPARTS (RETURN NIL))) 
(COND C(NOT (GET (QUOTE TOP) (QUOTE APVALI)D) 
(CSETQ TOP (SETQ TOPPART (GENSYM))) 2) 
(SETQ Y 
(M2 
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EXP 
(QUOTE (TIMES (COEFFTT {A FREED) (COEFFTT (8 TRUE}I)?) 
NIL )) 
(SETQ A (COR (SASSOC (QUOTE A) Y))) 
({SETQ 8 (CDR (SASSOC (QUOTE Bd Y))) 
{COND {(NOT (EQ (CAR B) (QUOTE TIMES)}) (RETURN NILDD) 
(COND 
((NOT (GET (QUOTE MAXPARTS) (QUOTE APVAL}}) 
(AND (CSETQ MAXPARTS (TIMES 2 (MAXPARTS B))) 
(CSETG NUMPARTS 1) )) 
(CAND (CSETQ NUMPARTS (ADD1 NUMPARTS)) 
(GREATERP NUMPARTS MAXPARTS) ) 
(RETURN NIL) )) 


(SETQ Y (CDR Bd} 
Loop 
(CSETQ NOPARTS T} 
(SETQ Z CENTEGRATE (CAR Y¥} VAR)) 
(CSETQ NOPARTS NIL) 
(COND ({FIND2 Z (QUOTE INTEGRAL?) (GO A))) 
(SETQ G (CHOICE (CAR Y) 8)) 
(SETQ W CINTEGRATE (SIMPTIMES (LIST (OIFFL G VAR) Z)} VAR?) 
(COND ((FIND1 W (QUOTE INTEGRAL)) (GQ A})) 
(SETQ 
Y 
CSIMPTIMES (LIST A (SIMPDIFFERENCE (LIST (SIMPTIMES (LIST G Z)) Wd)) D) 
(RETURN (COND ((EQ TOPPART TOP) 
(PROG2Z3 
(REMPROP (QUOTE TOP) (QUOTE APVAL)) 
Y 


(REMPROP (QUOTE MAXPARTS) {QUOTE APVAL)) 1) 
"T Yd 0) 


(SETQ ¥ (COR Y)) 

(COND ((NULL Y¥) (RETURN NIL)}} 

(COND CINOT (EQ TOP TOPPART}} (GO LCOP)}) 
(CSETQ MAXPARTS (TIMES 2 (MAXPARTS B)}) 
(CSETQ NUMPARTS 1) 

(GO LOGP) ))))) 


CSET 
(NUMPARTS 1) 


CSET 
(NOPARTS NIL) 


SOLDIER 


DEFINE 
CCCSOL 
{LAMBDA 
{EXP INOVAR DEP VAR) 
(SUBST 
INDVAR 
{QUOTE X) 
(SUBST 
DEPVAR 
(QUOTE Y) 
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(SOLDIER 
(SUBST 
(QUOTE X) 
INDVAR 
(SUBST 
(QUOTE Y)} 
DEPVAR 
(SUBST 
(QUOTE DX) 
CINTERN (MKNAM (u.. .CLEARBUFF) (PACK (QUOTE D)) (PACK INDVAR))) ) 
(SUBST 
(QUOTE OY) 
(INTERN (MKNAM (OR (CLEARBUFF) (PACK (QUQTE Dd) (PACK DEPVAR)D)) ) 
(SUBST 
(QUOTE YPR} 
CINTERN (MKNAM (OR 
{CLEARBUFF) 
(PACK DEPVAR) 
(PACK (QUOTE P)) 
(PACK (QUOTE R)) 1D) 
EXP ))))20090) 
CSOLCON 
(LAMBDA 
(EXP INDVAR DEPVAR X Y) 
CCLAMBDA (2) 
CCLAMBDA (W) 
(COND ( (NULL W) NIL) 
(T (LIST 
(QUOTE EQUAL) 
CSIMP (SUBST Y DEPVAR (SUBST X INDVAR W))) 
Wod))) 
(COND 
C(NULL Z) NIL) 
((EQ (CAOR Z) (QUOTE CO)) (CADDR. Z)) 
(T (CADR Z2)) 1)) 
{SOL EXP INOVAR DEPVAR) })) 
(SOLOIER 
(LAMBDA 
CEXP) 
(PRGG (W EXP1 EXP2) 
(COND 
(CSETQ wW 
(M2 
EXP 
. (QUOTE (PLUS (COEFFPT (A TRUE) DY) (CCEFFPT {B TRUE) OX))) 
NIL )) 
(GO A) ) 
((SETQ W 
(M2 
EXP 
(QUOTE (PLUS (COEFFPT (A TRUE) YPR) (CCEFFPT {8 TRUE)))) 
NIL )) 
NIL ) 
(T (RETURN NIL)) ) 
CSETQ EXP1 (REPLACE W (QUOTE (PLUS (TIMES A DY) (TIMES B DX))))) 
(SETQ EXP2 EXP) 
(GO B) 


(SETQ EXP2 (REPLACE W (QUOTE (PLUS (TIMES A YPR) Bd))) 
(SETQ EXPL EXP) 
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(COND ((TRYSULO (QUUTE (LINEAK 
SEP 
EXACT 
HOMUGTYPE 
BERNOULLI 
LINE ARCOEFF 
ALMOSTLINEAR 
REVERSE VAR 
XNYL )) 
(QUOTE (EXPL EXPL EXPL EXPL EXP2 EXP2 EXPL EXPL EXP2)) }) 
(RETURN W) ) 
(T (RETURN NIL)) 9))) 
(TRYSOLC {LAMBDA (A B) 
(COND 
( (NULL A) NIL) 
COSETQ W CICAR A) (COND ((EQ (CAR BY) CQUOTE EXP1)) EXP1) (T EXP2))}) W) 
(T (TRYSOLD (COR Ad (COR BY) J)))) 


BeFINE 
CC CFACTORXY 
(LAMBDA 
(EXP) 
(COND 
CONOT (EQ (CAK EXP) (QUOTE TIMES))) EXP) 
(T 
(SIMPTIMES 
(MAPLIST 
(CBR EXP) 
{FUNCTIUN (LAMBDA (EXP) 
(CUND 
(CEG (CAAR EXP) (QUOTE PLUS)) (FACTORXY2 (CAR EXP))) 
(CAND (EG (CAAR EXP) (QUCTE EXPT)} 
{EQ (CAADAR EXP) (QUOTE PLUS)) ) 
(SEIMPEXPT (LIST (FACTORXY2 (CAGAR EXP)) {({CADDAR EXP))) ) 
(T (CAR EXPY YVVVII9D) 
(CFACTERXY2 
{LAMBDA 
(EXP) 
(P26G (Z IND RES WwW) 
(SETG Z (CDR EXP)) 
(SETS IND (QUOTE X)) 
LUUP 
{COND 
{ (NOT 
(SETO 
Ww 
(M2 
(CAR Z) 
(QUOTE 
(CUEFFT 
(& TRUE} 
CE XPT 
{A ML IND} 
(N (FUNCTION (LAMBOA (N) 
(AND (NUMBERP N) (GREATERP N 0.98999999E0)) )9)))) 
NIL ))) 
(sO NO) )) 
(SETQ RES 
(CONS (REPLACE w (QUOTE {TIMES B CEXPT A {PLUS N -1))})) RES) ) 
(COND C{NOT (SETQ Z (CDR 2))} 
(RETURN CSIMPTIMES (LIST IND (SIMPPLUS RES)))) 1) 
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(GO LOOP} 
MO 
(COND ({cQ IND (QUGTE Y¥)) CRETURN EXP))) 
CSETQ IND {QUOTE Y)) 
(SETQ Z (COR EXP)) 
(SETQ RES NIL) 
{GO LGOP) ))))) 


OEFINE 
(CCSIMPEXPT 
(LAMBDA 
(EXP) 
(PROG CA B) 
(SETQ & (SIMP (CADR EXP))) 
(SETQ A (SIMP (CAR EXP))) 
{ COND 
(CEQP A 9) (RETURN 0)) 
(CAND 
{EG (CAR Ad (QUOTE EXPT)) 
{SETQ B (SIMPTIME {LIST 8B (CADDR Ad))) 
{SETQ A (CADR Ad) 
NIL ) 
NIL) 
{(EQP B OO) (RETURN 1)) 
CCEQP Bo 1) CRETURN A)) 
(CEQP A 1) (RETURN 17) 
{CAND (NUMBERP A) (NUMBERP B)) 
{RETURN (CUND 
CONOT EXPTINO) (EXPT A B)) 
((ANG (FIXP B) (GREATERP B -1) 
(7 (LIST (QUOTE EXPT) A Bd) )) 
{{eQ (CAR Ad (QUOTE TIMES)) 
(RETURN {CONS (QUOTE TIMES) {EXPTLOOP (COR A)))) ) 
(CAND =XPTSUM (EQ {CAR B) (QUCTE PLUS))) 
(RETURN 
{CONS 
(QUOTE TIMES) 
(MAPLIST (COR B) 
(FUNCTION (LAMBDA (C) (SIMPEXPT (LIST A (CAR Cd))9) 999) 
C(NUT CATOM 8)) 


) (EXPT A BY) 
) 


(RETURN 
{PROG (Ww) 
{RETURN 
{C UND 
CONOT (SETOC W 
(M2 
to) 


(QUGTE (PLUS (CCEFFT (C TRUEL) 
(LOG {81 TRUE) (A TRUE)) ) 
(CQEFFP (E TRUE)) )) 
NIL ))) 
(LIST (@LOTE EXPT) A B) } 
CCNOT (EQUAL A (SUBLIS W (QUOTE 81)))) 
(LIST (QUOTE EXPT) A B) ) 
(T 
{SIMPTIMES (LIST 
{SEMPEXPT (LEST (SUBLIS W (QUOTE A)) 
(SUBLIS W (QUOTE C)) )) 
{SIMPEXPT (LIST A (SUBLIS W (GUOTE E)))) 19999090) 
(RETURN (LEST (QUOTE EXPT) A BI) 1D) 
(EXPTLONOP 
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CLAMSDA 
(A) 
(PRUG2Z3 
(CSETG@ SIMPIND T) 
(MAPLIST A (FUNCTION (LAMBDA (C) {(SIMPEXPT (LIST (CAR C) Bh)))) 
(CSETQ SIMPIND NIL) 3990) 


DEFINE 
COCLINEAR 
(LAMBDA 
(EXP) 
(PROG CY Z WwW} 
(RETURN 
(COND 
CONOT 
(SETQ 
Ww 
(M2 
EXP 
(QUOTE 
(PLUS 
{COEFFPT (F FREEX (QUOTE Y)) DY) 
(COEFFPT (A M1 
(QUOTE (PLUS (COQEFFPT (G FREEX (QUOTE Y)) Y) 
(COEFFPT {H FREEX (QUOTE Y))) ))) 
OX ))) 
NIL ))) 


(COND ({ANO (THEREXNY EXP 1) 
(NOT (M2 EXP (SETQ W (EXPAND2 EXP)) NIL)) } 
(LINEAR W) ) 
(T NIL) 1) 
(T 
(LIST 
(QUOTE EQUAL) 
(QUOTE CO) 
(SIMPPLUS 
(LIST 
(LIST 
{QUOTE TIMES) 
(QUOTE Y) 
(SETQ 
Zz 


(SIMPE XPT 
(LIST 
(QUOTE &) 
{SIN (SIMPQUOTIENT (LIST (REPLACE W (QUOTE G) 
(REPLACE W (QUOTE F)) 2) 
(QUOTE X) }))))} 
(SIN 
(SIMPTIMES (LIST Z 
CSIMPQUOTIENT (LIST (REPLACE W (QUOTE H)) 
(REPLACE w (QUOTE Fd) )))) 
(QUOTE X) 2)Vd9I)0)) 
({THEREXNY (LAMBDA (EXP N) (EQUAL N (COUNTY EXP)))) 
(COUNTY (LAMBDA (EXP) 
(COND (C(ATOM EXP) (COND ((EQ EXP (QUOTE Y)) 1) (T 0))) 
(T (PLUS (COUNTY (CAR EXP}) (COUNTY (CDR EXP)))) 39))) 


DEFINE 
CCCSEP 
(LAMBDA 
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(EXP) 
(PKOG (Ww) 
CRETURN 
(CUND 
(CSET WwW 
(M2 
(PRUG23 {CSETG EXPTSUM T) (SIMP EXP) (CSETQ EXPTSUM NIL?)) 
(QUUTE {PLUS 
(TIMES 
DX 
{(COEFFTT (M FREEX (QUOTE X 
(COEFFTT (R FREEX (QUOTE Y 
(TIMES 
DY 
{CGEFFTT (N FREEX {(QUCTE 
{CGEFFTT (S FREEX (QUOTE Y))) ))) 
NIL )) 
(LIST 
(QUOTE EQUAL) 
({SIMPPLUS {LIST 
(SIN {SUBLIS W (QUOTE (QUCTIENT R S)) 
CSIN (SUBLIS W (QUOTE (QUCTIENT N M)) 
{QUUTE CO) )) 
(T NIL) 9)))) 
(FREEX (LAMBDA (A VAR) 
(COND (CATOM Ad (NOT (EQ A VAR))) 
(T (AND (FREEX {CAR A) VAR) (FREEX (COR Ad VARI)) 1)))) 


(QUOTE X)) 
(QUOTE Y)) )) 


DEFINE 
((CEXACT 
(LAMBDA 
CEXP) 
(P280G (WP Q OPDY DQOX Y Fl) 
(COND ((NOT (SETQ W 
{M2 
EXP 
(QUOTE [PLUS (COEFFPT (P TRUE) DX) (COEFFPT (Q@ TRUE) DY)) ) 
NIL ))) 
(RETURN NIL) )) 
(SETQ P {SUBLIS wW {QUOTE P))) 
(SETQ Q (SUBLIS W (QUOTE Q))) 
(SETQ DPDY (DIFF1L P (QUQTE Y))) 
(SETQ D&DX (OIFFL @ (GUOTE X))) 
(COND ((NOT (M2 OPDY DQOX NIL)) (GO A))) 
OUT 
(SETQ Y (SIN P (QUOTE X))) 
(RETURN 
(LIST 
(QUUGTE EQUAL) 
(QUOTE CO) 
(SIMPPLUS 
(LIST 
Y 
(SIN 
(EXPAND2 (SIMPDIFFERENCE (LIST Q (DIFF1 Y (QUOTE Y))))) 
(QUOTE Y) 3)))) 


(COND 

{ (NOT 
{FREEX 
(SETQ Fl 
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CSIMPQUOTIENT (LIST (SIMPDIFFERENCE (LIST DPDY DQDX)) Q)) ? 
(QUOTE Y) )) 
(GO B) )) 
(SETQ Y (SIMPEXPT (LIST (QUOTE E) (SIN Fl (QUOTE X))))) 
(SETQ P CSIMPTIMES (LIST Y¥ P)}) 
(SETQ Q €SIMPTIMES (LIST ¥ Q))5 
(GO OUT} . 


(COND 
CUNOT 
(FREEX 
(SETQ Fl 
CSIMPQUOTIENT (LIST (SIMPDIFFERENCE (LIST DQDX DPDY)) P}) ) 
(QUOTE X) )) 
(GO c) )) 
(SETQ Y (SIMPEXPT (LIST (QUOTE E) (SIN Fl (QUOTE Y)))?) 
(SETQ P (SIMPTIMES (LIST Y¥ P))) 
(SETQ Q (SIMPTIMES (LEST ¥ Q))3 
(GO OUT) 


(COND ((NOT (CAND (M2 DPDY (SIMPMINUS (LIST DQDX)) NIL) 
(M2 (DIFF1 P (QUOTE Xd) (DIFF1 Q (QUOTE Y)) NIL) )) 

(RETURN NIL) )) 
(SETQ Y 
(SIHPPLUS (LIST (SEMPTIMES (LIST P P}) (SIMPTIMES (LIST Q Q)))) } 
(SETQ P CSIMPQUOTIENT (LIST P Y))) 
(SETQ Q (SIMPQUOTIENT (LIST Q YD} 
(GO GUT) 3)))) 


DEFINE 
CC(BERNOULLI 
(LAMBDA 
(EXP) 
(PROG (WwW) 
(RETURN 
(COND 
CONOT 
(SETOQ 


WwW 
(M2 
EXP 
(QUOTE 
(PLUS 
(COEFFPT (B TRUE) YPR) 
(COEFFPT (P FREEX (QUOTE Y)) Y) 
(COEFFPT 
(Q FREEX (QUQTE Y)) 
(EXPT Y 
{(N (LAMBDA (A) 
(AND (NUMBERP A) (NOT (ZEROP ADD) D9DD4) 
NIL ))) 
(COND ((AND (THEREXNY EXP 2) 
(NOT (M2 EXP (SETQ W (CEXPANO2 EXP)) NIL)) ) 
{BERNOULLI Ww) ) 
(T NIL) )) 
(CFREEX (REPLACE W (QUOTE 6)) (QUQTE Y)) 
( (LAMBDA 
(P Q NI) 
(SUBST 
(SIMPEXPT (LIST (QUOTE Y) N1)) 
(QUOTE Y) 
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(LENEAR C(CSIMPPLUS (LIST (QUOTE DY) 
(LIST 
(QUOTE TIMES) 
(QUOTE DX) 
(LIST 
(QUOTE PLUS) , 
(LIST (QUOTE TIMES) Nl P (QUOTE 
(LIST (QUOTE TIMES) N1 Q) yo) 
(REPLACE W (QUOTE (QUOTIENT P B)) 
(REPLACE W (QUOTE {QUOTIENT Q B)) 
(SIMPOIFFERENCE {LIST 1 (SUBLIS W {QUOTE ND})) 29920009) 


DEFINE 
CCC HOMOGTYPE 
(LAMBOA 
(EXP) 
(PROG CY Z WW) 
(COND 
C(NOT (SETQ Ww 
(M2 
EXP : : 
{QUOTE (PLUS (COEFFPT (P TRUE) DX) (COEFFPT (Q TRUE) Dy)) } 
NIL ))) 
(RETURN NIL) ) 
CONGT (CAND 
(SETQ Z (HOMOG {SUBLIS W (QUOTE P}})) 
(SETQ Y (HOMOG (SUBLIS wW {QUOTE Q)))) 
(EQP Y 2) )) 
(RETURN NIL) } 
(T 
(RETURN 
(LIST 
{QUOTE EQUAL) 
(LIST 
(QUOTE PLUS) 
{QUOTE (LOG E X)) 
(SIMP 
(SUBST 
{QUOTE (QUOTIENT Y X)? 
(QUOTE Y) 
(SIN 
( SIMPQUOTIENT 
(LEST 
{SETQ Y 
(SIMP (SUBST 1 (QUOTE X) (SUBLIS W (QUOTE Q))) )) 
(SIMPPLUS {LIST Se 
(SIMP (SUBST L (QUOTE X} {(SUBLIS W (QUOTE P))) ) 
(SIMPTIMES (LEST (QUOTE Y) ¥)) 299) 
(QUOTE Y) 333) 
(QUOTE CO) 99)0)))) 
CHOMOG (LAMBDA (EXP) 
(PROG (NOTHOM Y) 
(SETQ Y (HOMOGEN EXP)) 
(COND (NOTHOM (RETURN NILD) (T CRETURN Y))) 29) 
(HOMOGEN : 
(LAMBDA 
(EXP) 


(COND 
CCATOM EXP) (COND ((EQ EXP (QUOTE Y)) 1) (CEQ EXP (QUOTE X)) 1) {T 09D) 
(CEQ (CAR EXP) (QUOTE TIMES)) 

{EVAL (CONS (QUOTE PLUS) 
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(MAPLIST (COR EXP) (FUNCTION (LAMBDA {(C) (HOMOGEN (CAR C})))) } 


(ALIST) )) 
(CEQ (CAR EXP) (QUOTE PLUS}? 
( (LAMBDA (CY) 
(PROG (2) 
CSETQ Z (HOMOGEN {CAR Y})) 
Loop 
(SETQ ¥ (COR Y)) 
(COND . 
CUNULL Y) (RETURN Z)) 
((NOT (EQUAL Z (HOMOGEN (CAR Y)})} 
(RETURN {PROG2 (SETQ NOTHOM T) -1000)) ) 
(T (GO LOOP)) 3)) 


(COR EXP) )) 
(CEQ (CAR EXP) (QUOTE EXPT)) 


(COND 
(TIMES (HOMOGEN (CAOR EXP}) (CADDR EXP)})) 


C((NUMBERP {(CADDR EXP)) 
((AND (ZEROP (HOMOGEN {CADR EXP))) (ZEROP (HOMOGEN (CADDR EXP)))) 0) 


(T (PROG2 (SETQ NOTHOM T) ~1000)) )? 
(CEQ (CAR EXP) (QUOTE LOG)) 
(COND ((ZEROP UHOMOGEN {CADDR EXP))) 0) 
(T (PROG2 (SETQ NOTHOM T) -1000)) }) 
((ZEROP (HOMOGEN (CAOR EXP))) 0) 
(T (PROG2 (SETQ NOTHOM T) ~1000)) )))}) 


DEFINE 
{(CALMOSTL INEAR 
(LAMBDA 
(EXP) 
(PROG (WD ODDY) 
{RETURN 
(COND 
CONULL 
CSETQ 
W 


(M2 
Exe 
(QUOTE 
(PLUS 
(TIMES DY {COEFFTT (A TRUE)}) 


(TIMES 


(COEFFTT (C FREEX (QUOTE Y))) 
(COEFFTT 

(0 (FUNCTION (LAMBDA (A) (NOT (FREEX A (QUOTE Y}))) 
(COEFFPP (E FREEX ¢€QUOTE Y))) 922) 


NIL ))) 
NIL ) 
(CEQUAL 0 
(SETQ DDDY 
(DIFF1 (SETQ D (REPLACE W (QUCTE D))) (QUOTE Y)) )) 


NIL ) 
CCNOT (EQUAL O (OIFF1 DDDY (QUOTE X)))) NIL) 
(T 
(SUBST 
) 
(QUGTE Y} 
(LINEAR 
(REPLACE 


yd) 
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{CONS (CONS (QUOTE B) 
(SIMPQUOTIENT (LIST (REPLACE W (QUOTE A?) OODY)) } 
wo) 
(QUOTE 
(PLUS 
(TIMES 8 DY) 
(TIMES OX 
{PLUS 
E 
(TIMES C Y) 
(TIMES -1 8B (EVAL (DIFFL (QUOTE BD} (QUOTE X)})) 2990000000290) 


DEF INE 

COCZEROPL (LAMBDA (A) (AND (NUMBERP A) (ZEROP A}))) 
(FREEXY (LAMBDA (A) (AND (FREEX A (QUOTE X)) CFREEX A (QUOTE Y)9))) 
(L INEARCOEFF 


(LAMBDA 
CEXP) 
(PROG (IND WA B APR BPR) 
(RETURN 
(COND 
((NOT (ELEMLIN EXP) NIL) 
C(OR 
(AND 


(ZEROP1 (SETQ A {SUBLIS W (QUCTE A)))) 
(ZEROP1 (SETQ B (SUBLIS W (QUOTE BD))) } 
(AND 
(ZEROP1 (SETQ APR (SUBLIS W (QUOTE APR)))) 
(ZEROP1 (SETQ BPR (SUBLIS W {QUOTE BPRI)})) ) 
(ZEROP1 (SIMPDIFFERENCE (LEST (SIMPTIMES (LIST A BPR)} 
(SIMPTIMES (LIST APR BD) 999) 
(RETURN NIL) ) 
{T 
(REPLACE 
(REPLACE 
NIt 
(QUOTE 
((x 
EVAL 
(QUOTE# 
(REPLACE 


Ww 
{QUOTE (PLUS X 
(MINUS CQUOTIENT 
(DIFFERENCE {TIMES BPR C) 
(TIMES B CPR) } 
(DIFFERENCE {TIMES APR 8) 
(TIMES A BPR) 3)D)DDDD) 
ty 
EVAL 
(QUOTE#* 
(REPLACE 


W 
(QUOTE (PLUS Y¥ 
CAINUS (QUOTIENT 
(DIFFERENCE (TIMES A CPR) 
(TIMES APR C) ) 
(DIFFERENCE {TIMES APR 8) 
(TIMES A BPR) 9999090090) 
(HOMOGTYPE (SUBSTLIN EXP)) 393000) 
CELEMLIN 
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(LAMBDA 
(EXP) 
CULAMBDA (CY) 
(COND (CNULL Y) NIL) 


(T (ELEMLIN] (REPLACE ¥Y (QUOTE (QUOTIENT A B)}))) DD ' 
(M2 EXP (QUOTE {PLUS (COEFFPT (8 TRUE) YPR) (COEFFPT (A TRUE)))) NIL) )}) 
{ SUBSTLIN 


(LAMBDA 
(EXP). 
(LIST 
(QUOTE PLUS) 
{QUOTE DY) 
(SIMP TIMES 
(LIST 
(QUOTE DX) 
(SUBSTLINL (REPLACE (M2 
EXP 


(QUOTE (PLUS (COEFFPT (B TRUE) YPR) (COEFFPT (A TRUE)))) 
NIL ) 


(QUOTE (QUOTIENT A B)) 399990) 
(ELEMLINI 
(LAMBDA 
(EXP) 
(COND 
(CFREEXY EXP) T) 
((SETQ 
W 
(M2 
EXP 
(COND 
(IND INO} 
(T 
(QUOTE (TIMES 
(COEFFTT (AA FREEXY)) 
(EXPT (PLUS 
(COEFFPT tA FREEXY) X) 
(COEFFPT (8 FREEXY) Y) 
(C FREEXY) ) 
(N NUMBERP) ) 
CEXPT 
(PLUS 
(COEFFPT {APR FREEXY) X) 
(COEFFPT (BPR FREEXY) Y) 
(CPR FREEXY) ) 
(M (FUNCTION {LAMBDA (MN) (EQUAL M (MINUS NDDD2 ND DDDDD 
NIL )) 


(COND CIND INO) {T (SETQ IND EXP})) ) 
((ATOM EXP) NIL) 


(T (AND (ELEMLINL (CAR EXP)) (ELEMLIN] (CDR EXP)))) 29) 
{SUBSTLIN1 
(LAMBDA 
{ EXP) 
(COND 
(CFREEXY EXP) T) 
((M2 EXP IND) 
(SIMP (SUBLIS W 
(QUOTE (TIMES 
AA 


(EXPT (PLUS (TIMES A X) (TIMES 8 Y)) ND 


CEXPT (PLUS (TIMES APR X) (TIMES BPR Y)) (MINUS ND) 


y)))) 
(T (MAPLIST EXP (FUNCTION (LAMBDA {C) (SUBSTLINI (CAR C)))) 


») 
yd)od000) 
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DEFINE 
COCXNYL 
(LAMBDA 
(EXP) 
(PROG (WC H FX S ABN) 
(COND ((NOT (SETQ W 
(M2 
EXP 
(QUOTE (PLUS (COEFFPT (A TRUE) YPR) (COEFFPT (8 TRUED))) 
NIL ))) 
(RETURN NIL) 3) 
(SETQ C (REPLACE W (QUOTE (QUOTIENT (MINUS B) AD))) 
(SETQ 
H 
(COND 
((EQ (CAR C) (QUOTE PLUS)) 
CSIMPPLUS 
(MAPLIST 
{COR C) 
(FUNCTION (LAMBDA (G) . 
(SIMPTIMES (LIST (QUOTE X) QUOTE (EXPT Y ~1)) (CAR G)d 39909) 
(T (SIMPTIMES (LIST (QUOTE X} (QUOTE (EXPT Y -1)) CD)) 0) 
(SETQ FX (QUOTE (TIMES (EXPT X ND Y})) 
(SETQ H (FACTORXY H)) 
(SETQ 
S 
(EXPAND2 
(SIMPOIFFERENCE (LIST 
(SIMPTIMES (LIST (O1FF1 H (QUOTE X)) (OIFF1 FX (QUOTE Y)))) 
(SIMPTIMES (LIST (OIFF1 H (QUOTE Y)) (OIFFL FX (QUOTE X))3) 099) 
(COND CINOT {(SETQ Ww 
(M2 
s : 
(QUGTE (PLUS (COEFFPT (A TRUE) N) (CCEFFP (8 TRUE)))) 
NIL 9D) 
(RETURN NIL) 3) 
(SETQ A {CDR (SASSOC (QUOTE A) W))) 
(SETQ B (COR (SASSOC (QUOTE B) Wd)? 
(COND ((OR (ZEROPL A} (ZEROP1 B)) (RETURN NIL})) 
(SETQ N 
(COND 
(CAND (EQ (CAR A) (QUOTE PLUS)) (EQ (CAR 8) (QUOTE PLUS))) 
(MATCHSUM (CDR (SIMPMINUS (LIST B))) (COR AD) ) 
(T CSIMPQUOTIENT (LIST (SIMPMINUS (LIST B8)) ADD) 1) 
(COND ({NGT (NUMBERP N}) CRETURN NIL))) 
(RETURN 
(LIST 
(QUOTE EQUAL) 
(QUOTE CO) 
(SIMPQUOTIENT 
(LIST 
CSIMPEXPT 
(LIST 
(QUOTE E) 
(REPLACE 
(LIST (CONS 
{QUOTE U) 
CSIMPTIMES (LIST (QUOTE Y) (SIMPEXPT (LIST (QUOTE X) NDD) D9) 
{SIN 
(LIST 
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(QUOTE QUOTIENT) 
l 
(LIST 
(QUOTE TIMES) 
(QUOTE U) 
(LIST 
(QUOTE PLUS) 
N 
(REPLACE 
{LIST (CONS (QUOTE Y) 
(SIMP (LIST 
(QUOTE QUOTIENT} 
(QUOTE U) 
(LIST (QUOTE EXPT) {QUOTE X) N) )))) 
H d))) 
(QUOTE Ud dD) 
(QUOTE X) J)D)0)00) 


ADDITIONAL METHODS 


DEFINE 
({CREVERSEVAR 
(LAMBDA 
(EXP) 
{PROG (Y) 
(RETURN (COND ({SETQ Y 
(LINEAR {SUBLIS (QUOTE ((X . Y) (CY « X) (DX . DY) 
EXP ))) 
(SUBLIS (QUOTE ((X .« Y) (CY « X))) YD) 
(T NIL) 9)))))) 


DEFINE 
{((XAYB 
(LAMBDA 
(EXP) 
{PROG (W 
M 
N 
XYOMDY 
XYONDX 


FACT ) 
(COND ((NOT (SETQ Ww 


(DY 


OX))) 
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(M2 
E XP 
{QUUTE (PLUS (CUEFFPT (M TRUE) OX) (CCEFFPT (N TRUE) DY)) } 
NIL ))) 
(RETURN NIL) )) 
(SETQ M (REPLACE W (QUOTe M))) 
(SETQ N (REPLACE W (QUOTE N))) 
(SETQ XYDMDY 
(EXPAND2 (SIMPTIMES (LIST (QUOTE X) (QUOTE Y) (OIFFL M (QUOTE Y)))) )) 
(SETQ XYONDX 
{EXPAND2 (SIMPTIMES (LIST (QUOTE X) (QUOTE Y) (DIFF1 N (QUOTE X}})) )) 
(SETQ XM (EXPAND2 {(SIMPTIMES (LIST (QUOTE X) M)))) 
(SETQ YN (EXPAND2 (SIMPTIMES (LIST -1 (QUOTE Y) N)))) 
(SETQ XYDIFF (SIMPDIFFERENCE (LIST XYDNOX XYDMDY))) 
(SETQ W 
(M2 
(COND (CEQ (CAR YN) (QUOTE PLUS)) (CADR YN)) (T YN)) 
(QUOTE (TIMES (COEFFTT (B FREEXY)) (COEFFTT (C TRUE)))) 
NIt )) 
(CSETQ Bl (REPLACE wW (QUOTE B))) 
CSETQ FACT (REPLACE W (QUOTE C))) 
(SETQ YN 
(COND ((EQ (CAR YN) (QUOTE PLUS)) (CONS (CUCTE PLUS) (CDDR YN))) 
(T 0) 9) 
(SETQ FORM 
(LIST 
{QUOTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUOTE (B FREEXY)) 
(CONG [CEQ (CAR FACT) (QUQTE TIMES)) (COR FACT)) 
(T (LIST FACT)) ))) 
(QUOTE (COEFFPP (D TRUE))) 1} 
(SETQ W (M2 XM FORM NIL)) 
(SETQ Al (REPLACE W (QUOTE B)))} 
(SETQ XM (REPLACE wW (QUOTE D))) 
(SETO W (M2 XYOIFF FORM NIL)) 
CSETQ Cl (REPLACE w (QUOTE B))) 
(SET@ XYDIFF (REPLACE W (QUOTE D))) 
(COND ((M2 YN GQ NIL) (GO B2ZEROG})) 
(SETQ Ww 


(COND ( (EQ (CAR YN) (QUGTE PLUS)) (CADR YN)) (T YN)) 
(QUOTE (TIMES (CGEFFTT (B FREEXY)) (COEFFTT (C TRUE)))) 
NIL )) 
(SETW B2 (REPLACE Ww (QUOTE B))) 
(SETQ FACT (KEPLACE W (QUOTE C))) 
(SETQ FORM 
(LIST 
(QUUTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUUTE (B FREEXY)} 
(COND ((EQ (CAR FACT) (QUOTE TIMES)) (CDR FACT)) 
(T (LIST FACT)) 1)) 
(QUOTE (COEFFPP (DBD TRUE}}) )) 
(SETG W (M2 XM FORM NIL)) 
(SETQ A2 (REPLACE w (QUOTE B))) 
B2BACK 
(SETQ W (M2 XYDIFF FORM NIL)) 
(SETQ C2 (REPLACE W (QUOTE B)?)) 
(SETQ DET 
(SIMP (LIST 
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(QUOTE DIFFERENCE) 
{LIST (QUOTE TIMES) 82 Al) 
(LIST (QUOTE TIMES) B1 A2) 1)) 
{COND ((M2 DET O NIL) (RETURN NIL))) 
(SETQ B 
(SIMP (LIST 
(QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE TIMES) B2 C1) 
(LIST (QUOTE. TIMES) 81 C2) ) 
DET ))) 
(SETQ A 
(SIMP (LIST 
{QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE TIMES) Al C2) 
(LIST (QUOTE TIMES) A2 C1) ) 
DET ))) 
{SETQ XAYB 
(SIMPTIMES {LIST (LIST (QUOTE EXPT} (QUOTE X) A) 
(LIST (QUOTE EXPT) (QUOTE Y) Bd 995 
(RETURN (EXACT (LIST 
{QUOTE PLUS) 
(LIST 
(QUOTE TIMES) 
{QUOTE DX) 
(EXPAND2 (SIMPTIMES {LIST M XAYB))) ) 
(LIST 
(QUOTE TIMES) 
(QUOTE DY) 
(EXPAND2 (SIMPTIMES (LIST N XAYB}))? 2))) 
B2ZERO 
(SETQ B2 0) 
(SETQ Ww 
(M2 
(COND ((EQ (CAR XM) (QUOTE PLUS)) (CADR XM)) (T XM)? 
(QUOTE (TIMES (COEFFTT (8 FREEXY)) (COEFFTIT (C TRUE)))) 
NIL )) 
(SETQ A2 (REPLACE W (QUOTE B))) 
(SETQ FACT (REPLACE Ww (QUOTE CJD) 
(SETQ FORM 
(LIST 
(QUOTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUOTE (B FREEXY)) 
(COND ((EQ (CAR FACT) (QUOTE TIMES)) (COR FACT)) 
(T (LIST FACT)? 99) 
(QUOTE (COEFFPP {D TRUE))) }) 
{GO B2BACK) ))))) 


DEFINE 
COCKAMKE329 
(LAMBDA 
(EXP) 
(PROG (W DET AA BB) 
(COND 
C(NOT 
(SETQ 
W 


aa : 22. $$$ $$ 
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(M2 
(EXPAND2 EXP) 
(QUOTE 
(PLUS 
(COEFFPT {C Ml 
(QUOTE (PLUS (COEFFPT (ALPHA FREEXY) X) 
(COEFFPT 
(A FREEXY) 
(EXPT X (P FREEXY)) 
(EXPT ¥Y (Q FREEXY)) 399) 
YPR ) 
(COEFFPT (BETA FREEXY) Y) 
(COEFFPT 
(6B FREEXY) 
(EXPT X (R FREEXY)) 
(EXPT ¥Y (S FREEXY)) 19) 
NIL ))) 
(RETURN NIL} ) 
( (NOT (CANO 


(M2 1 (REPLACE W (QUOTE (OIFFERENCE P R))) NIL? 
(M2 1 (REPLACE W (QUOTE (DIFFERENCE S Q))) NIL) )) 
(RETURN NIL) ) 
{(M2 
0 
CSETQ DET 
(REPLACE Ww 
(QUOTE (DIFFERENCE (TIMES A BETA) (TIMES B ALPHA))?) 1) 
NIL } 
{RETURN NIL) )) 
(SETQ AA 
(REPLACE W 
(QUOTE (QUOTIENT (DIFFERENCE (TIMES Q BETA) (TIMES R ALPHA)) 
(EVAL DET) )))) 
({SETQ BB 
(REPLACE wW 
(QUOTE UII ENS COLFFERENCE {TIMES Q B) (TIMES R ADD CEVAL DET) 2) 
(RETURN 
(REPLACE 
W 
(QUOTE 
(EQUAL CO 
(PLUS 
(QUOTIENT (TIMES CEXPT Y (TIMES A EVAL AAD) 
(EXPT X (TIMES B (EVAL AAD)D) J 
(EVAL AA) } 
(QUOTIENT (TIMES (EXPT ¥ (TEMES ALPHA (EVAL BB8))) 
(EXPT X (TIMES BETA (EVAL 88))) ) 
(EVAL 8B) 9)9DD0000D) 


EDGE 


OEFINE(( 

CFREE(LAMBDACA)(COND( (ATOM A)(NOT(EQ A VAR))) 

(TCANDCFREE(CAR ADICFREE (COR AD}IDI)DY 9) 

OEFINE(( 

CEDGE(LAMBDA(EXP VAR) (PROG 

(PROBL ARCLOG POSEXPT OLDPROBL ONEMORE NONRAT NEWB* G W CONST NONCON 
B ANSW L FF AORAT HA 
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NINTXP At B* LDERIV ) 

(SETQ B® (TRIGSUBST EXP)) 

(SETQ NINTXP(M2 B*(QUOTE(TIMES(8B ML(QUOTE(EXPTIA (QUOTE(LAMBDA(X) (NOT 
(FREE X))0)00N 
(QUOTE (LAMBDA(X) {NOT(NUMBERP X)))) 029) 
(COEFFTT(C TRUE)))INIL)) 

(GO BEG) 


LOUP(COND( (RATS B*)(GO FINISHED))) 


(CONDI (EQ(CAR NONCON) (QUOTE TIMES)) (GO AA))) 

(SETQ FF NONCON) 

(GO GUESS) 

AA(SETQ LDERIVICONS(QUOTE PLUS) (MAPLIST (COR NGNCON) 
CFUNCTIONCLAMBDA(C)(DOIFFLICAR C)VARD))))) 

(SETQ M(COR NONCON)) 

(SETQ L(COR LDERIV)) 

LOOP 2(COND((RATSICAR M))(GO SKIP)D} 

(COND((NOT(M2 ({CHGECE (CAR L) LDEREV) 
(LIST(QUOTE PLUSI(LIST(QUOTE TIMES) (CAR M) 
(QUOTE(COEFFTT(A TRUE)))) 
(QUOTE(B TRUE))) NIL)? (GO ENDP))) 

SKIP(SETQ NONRAT(CAR MD) 

(SETQ M(CDR M)) 

(SETQ L(CDR L)) 

(COND(M(GO LOOP2))) 

(SETQ FF NONRAT) 

(GO GUESS) 

ENDP(SETQ FFI(CAR M)) 


GUESS(SETQ ARCLOG NIL) 
(SETQ POSEXPT NIL) 
(SETQ GCCOND 
(CEQ(CAR FFI(QUOTE COS))(PROGZ{SETQ AGRA‘ T) (LIST (QUOTE SIN) (CADR FFP)? 
CCEQ(CAR FFY(QUOTE SIN) )(PROGZ(SETC AGRA’ TIC(LIST( QUOTE COS)ICADR FFIN)) 
(CEQ(CAR FFI(QUOTE LOG) ){PROGZ(SETQ AORA' NIL)FF)) 
C(CEQ(CAR FF) CQUOTE ARCSIN)) (PROGZ(SETQ AORA® NILOFF)) 
(CEQ(CAR FFI(QUOTE ARCTAN)) (PROG2(SETQ AGRA* NIL)FF)) 
(CEQ(CAR FFI(QUOTE EXPT) ) (COND 
(CFREEC(CADR FF))(PROG2Z(SETQ.:AORA® TIFF)? ; 
CONOT(NUMBERP(CADDR FFD) )(PROGZ3(SETQ AORA® TIILIST( QUOTE EXPTIECADR FF) 
(SIMPPLUS(LIST(CADDR FFI1))) : 
(SETQ POSEXPT THD) 


((GREATERP(CADDR FFIO) (PROGZ3(SETQ AORA* TI(LISTCQUOTE EXPT){(CADR FF) 
CSIMPPLUS(LIST(CADDR FF)1))) 
(SETQ POSEXPT T))) 

(CLESSP(CADOR FFI-1)(PROGZ(SETQ AORA* TI(LIST(QUOTE EXPT) 
(CAOR FFICSIMPPLUS(LIST(CADDR FFI2})))) 

(CANDCEQUAL(CADDR FFI-9.5)(SETQ WIM2(CADR FF) 

(QUOTE(PLUS(COEFFP(A FREEO)) (COEFFTIC Me CSR ES ERE Ae TRUEDIN Se asa! 
(B FREE))DINEIL?)) i 

(PROG2Z3(SETQ AORA* T) (REPLACE W 

(QUOTE CARC SINC EXP T(QUOTIENT (TIMES (MINUS BICIAIO. 5)))(SETQ ARCLOG vt 

(CEQUAL(CADDR FFI-1) (CONDE (SETQ W(M2(CADR FF) 

CQUOTECPLUS(COEFFP(A FREEQPIICOEFFTI(C M2CQUOTEI(EXPT(O TRUEDIN EVEN) INIL) 

(B FREED) DINIL)) 
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CPROG2Z3(SETQ AORA* TI (REPLACE W(QUOTE{ARCTANCEXPT(QUOTIENT{(TIMES B C)A)0.5)))) 
CSETQ ARCLOG T) )} 
(TCPROG23(SETQ AORA® T)C{LIST(QUOTE LOG) (QUOTE E)(CADR FFY}({SETO ARCLOG T))))) 
(TCERROR(QUOTE(NOT YET ACCOUNTED FOR)))))) 
(TCERROR(QUOTE(GUESS NOT YET FINISHED)T)))) 


GOGO(COND( (NOT AORA‘)(GO A*SET))) 
CSETQ AC SIMPQUOTIENT(LIST NONCON(OIFFL G VAR)))) 
CSETQ A(COND({ANO ARCLOG(SETQ WIM2 A( QUOTE 
(TIMES(B M2(QUOTE(EXPT{PLUS(COEFFP(B1 FREEO)) 
(COEFFT(B2 TRUE) (B3 FREE) )I-L)DINEIL) 
(C M2(QUOTE(PLUS(COEFFP{(C1 FREEO}) 
(COEFFT(C2 TRUELI(C3 FREED)) NIL) (COEFFTT(D TRUE)))INILID) 
(COND((SETQ M(MATCHSUM(CDADR(REPLACE W{QUOTE 8))) 
{COR(REPLACE W(QUOTE C))))) 
CSIMPQUOTIENT(LIST(REPLACE WCQUOTE D))M))) 
(T ADD) 
(T ADD) 
(SETQ A*(DIFFL A VAR)) 
(SETQ NEWB'(COND((NOT(EQ(CAR A*) (QUOTE PLUS))) (SIMPMINUS(LIST 
CSIMPTIMES(LIST G A"))))) 
(TC TIMESLOOP (SIMPMINUS(LIST G)) (CDR AD)D)) 
(GO LOOP 5) 
ATSET(SETQ A*CSIMPQUOTIENT{LEST NONCON G))) 
(COND((FINDICSETQ ACINTEGRATE A* VAR)) (QUOTE INTEGRAL))(GO KILL))) 
CSETQ NEWB '{COND((EQ(CAR A){(QUOTE PLUS)) (TIMESLOOP(SIMPMINUS 
(LIST(DIFF1 G VAR) (CDR ADD) 
(TOSIMPTIMES(LIST -1(DIFF1 G VAR)A))))) 


LOOPS(SETQ PROBL(CONS{LIST B* CONST NONCON G FF A At ARCLOG POSEXPT)PROBL)) 
(COND( (AND ARCLOG(NOT(FREE A)))(SETQ ARCLOG 1))) 

(COND( (AND POSEXPTINOT(FREE A)))C(SETQ POSEXPT 1))) 

(PRINT NEWB") 

(SETQ B* NEWB") 

BEG (SETQ WIM2 B*' (QUOTE (TIMES(COEFFTT(A FREE) ) (COEFFTT(B TRUE)))INILD) 
(SETQ CONST(REPLACE W(QUOTE A))) 

(SETQ NONCON(REPLACE W(QUOTE 8B))) 

CSETQ L PROBL) 

LOOP 3(CONDC(NULL LL} (GO PROGRESS)) 

((M2(CADDAR LINONCON NIL)D(GO A))) 

(CSETQ LCDR L)) 

(GO LOOP3) 

ACSETQ M PROBL) 

(SETQ W CONST) 

A2(SETQ WCSIMPTIMES(LIST W (CADAR M)})) 

(CONO( (EQ M L)(GO Al))) 

(SETQ M{CDR M)) 

(GO A2) 

AL(COND( (M2 WICADAR LINIL)(GO KILL})) 


(RPLACA(CDAR L) 
(SIMPQUOTIENT(LIST(CADAR LL) (SIMPOIFFERENCE(LIST(CADAR LIW))))) 


CSETQ ANSW 0) 

SKIP2(SETQ L PROBL) 

LOOP 4(CONOC {NULL L) (RETURN ANSW)}) 
(SETQ ANSWCUSIMPTIMES(LIST(CADAR L} 
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(SIMPPLUS(LISTUSIMPTIMES(LIST(CADDRICDDDAR LI) (CAR(CODDAR L))))ANSW))))? 
(SETQ L(CDR L)) 
(GO LOOP 4) 
FINISHED(SETQ ANSWC(INTEGRATE B* VAR)} 
(GO SKIP2) 


PROGRESS(COND((RATS B*°) {GO FINISHED)) 

(CONEMORE(RETURN(QUOTE(NO PROGRESS) ))) 

( (EQUAL POSEXPT 1)(SETQ ONEMORE T))-. 

( (EQUAL ARCLOG 1)(SETQ ONEMORE T))). 

(COND( (NOT NINTXP)(GO LOOP))) 

(SETQ WEM2 B'(QUOTE(TIMES(EXPT(A EQUAL(REPLACE NINTXP(QUOTE A})}) 
(M TRUEL)D(COEFFTT(O TRUE) )))NIL?) 

({COND( (NULL WITERROR (QUOTE NINTXP)))). 

(SETQ M(SIMPDIFFERENCE(LIST(REPLACE NINTXP( QUOTE N)} 
(REPLACE WIQUOTE M))))) 

(CONDC(NOT(NUMBERP M))CERROR(ILESTCQUOTE NEINTXP)M))) 

((ZEROP M)(GO LOOP)) 

CCGREATERP 4 0)1G6O N1)) 

CONEMORE(RETURN(QUOTE(NO PROGRESS NINTXP)))D) 

{(SETQ ONEMORE T) 

{GO LOOP) 


NI(SETQ ANSWILIST(QUOTE INTEGRAL) NIL (LIST( QUOTE QUOTE)B*) (LIST(QUOTE QUOTE ) 


VAR))) 
(GO SKIP2) 


KILL1 (SETQ PROBLICDR PROBL)? 

KILL2(COND( (NULL PROBL) {GO MAYBEONEMORE))) 

(SETQ L(CAR PROBL)) 

{CONDL(CAR(CODDDRICDODDR L))){GO POSEXPT))) 

(COND((NOT(CADDDR (CDDDDR L))){GO KILL1)) 

(CEQCCAR(CADDOR L)I{QUOTE LOG))(GO KILL1)) 

’ 

(SETQ FF(CADDORICDR L))) 

(SETQ BP(CAR L)) 

(SETQ CONST(CADR L)) 

(SETQ NONCON(CADDR L)) 

(SETQ AORA* T) 

{SETQ GICOND((EQ(CARICADDDR L}) (QUOTE ARCSIND) 
{LISTCQUOTE EXPTY{CADR FF) (SIMPPLUS(LIST(CADDR FF)1)))) 
(TILEST(QUOTE LOG) (QUOTE E)(CAOR FF))))) 

(SETQ PROBL{COR PROBL)) 

(SETQ ONEMORE NIL) 

{GO GOGO) 

KILL(SETQ OLOPROBL PROBL) 

(GO KILL2) 


MAYBEONEMORE (COND (ONEMORE (RETURN(QUOTE(I GIVEUP))))) 
CPRINT(LIST(QUOTE ONEMORE) OLOPROBL)) 

(SETQ PROSL GLOPROBL) 

(SETQ ONEMORE T) 

(60 LOOP) 


POSEXPTICOND( (EQUAL (CAR(CDDODRICDDDDR L)))1)(GO KILLLDF) 
(SETQ FFICADODRICOR L))) , 

(SETQ POSEXPT 1) 

(SETQ AGRA® T) 

CSETQ Bt (CAR L)) 

(PRINT(LIST(QUOTE POSEXPT)B')) 

CSETQ CONST(CADR Lt)? 

(SETQ NONCON(CADOR L)) 
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{SETQ G FF) 

(ScTQ PROBL(CDR PRUBL)} 
(GO GOGO) 

yyd)) 


DEFINEC( 

(TRIGSUBST(LAMBDA(E XP) 

(COND 

((ATOM EXP)EXP) 

CONOT(MEMBER(CAR EXP) (QUOTE (TAN COT SEC CSCI))) 
(SIMPUMAPLIST EXP(FUNCTION(LAMBDA(C) (TRIGSUBST(CAR C})))) 

CCEQ(CAR EXP) (QUOTE TAN) ){(SIMPQUOTIENT(LIST(LIST(QUOTE SIN) 
(LIST(QUOTE COS){CADR EXP))))) 

(CEQCCAR EXP)(QUOTE COT)) (SI MPQUOTIENT(LIST(LIST( QUOTE COS){CADR EXP)) 

(LIST(QUOTE SIN) {CADR EXP))))) 
(CEQ(CAR EXP)(QUOTE SEC))(SEMPQUOTIENT(LIST L(LIST{QUOTE COS){(CADR EXP))))) 


>) 


) 
CADR EXP)) 


— 


casa 


1l. 


12. 
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